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Introduction 

This book is a collection of 76 practical programs written in the BASIC programming language specifically for the 
Commodore PET 1 or CBM 2 computers. The programs perform a variety of common useful tasks in the fields of 
finance, mathematics, statistics, science, and business. 

You can use this book whether or not you know how to write programs in BASIC. 

We do not teach you how to program in BASIC; there are probably hundreds of books trying to do that. But we 
do describe programs carefully and include user examples with the program listings. So if you are not familiar with 
BASIC, simply copy the program listings into your computer, then run the programs as illustrated in the examples. 

Remarks are included in the listings to help BASIC programmers understand how each program works. They will 
also assist you in identifying parts of programs that you may be able to use in other programs you write. Remark state- 
ments precede the line(s) on which they comment. REM statements should be omitted when you enter programs, 
since they are ignored by the computer and simply use up memory. 

Options are also included with some programs. An option is an alteration which changes the input or output for- 
mat of the original program. Options may suggest ways in which you can further alter the programs. We have included 
a brief description, example, sample run and partial listing of each option. The partial listing includes those program 
statements which are changed when going from the original program to the optional program. Lines which must be 
altered, added or deleted are shaded in both listings. 

All programs can be run on a PET or CBM computer with 8K or more of memory. You will need a cassette or 
floppy disk drive to save the programs on, but the programs themselves do not use cassettes or floppy disks to store 
or retrieve data. 

The programs are designed to fit on a 40-column display screen, so they work equally well on 40 or 80-column 
PET/CBM computers. All program output appears on the display screen, except in the program "Check Writer," which 
uses a printer. You can modify any program to use a printer. Adding OPEN, CMD, PRINT*, and CLOSE statements to a 
program causes its output to go to the printer instead of the display screen. To do this, first find a place in the program 
after all INPUT statements but before the PRINT statements that produce the program output. At that point, add state- 
ments such as OPEN 4,4:CMD4. Any PRINT statements executed after these statements are executed will output to 
the printer rather than the display screen. To make output revert to the display screen, put statements such as 
PRINT #4:CL0SE 4,4 after the PRINT statements that produce the program output. Refer to the "Check Writer" 
program for an example of printer output. (Note especially lines 250 and 625.) 

You can also alter the PRINT statements in any program to use more than 40 columns of an 80-column printer or 
display screen, but it is not necessary. 

The CBM computer does not normally display graphics characters. Instead, it displays upper and lower case 
alphabetic characters. Some of the programs, like "Coordinate Plot," use the graphics characters. So if you use these 
programs on a CBM, you must enable the graphics characters by typing POKE 59468,1 2 before typing RUN. After the 
program is finished, type POKE 59468,14 to return the CBM to normal upper/lower case mode. 

Throughout the program listings, the character 73 is the "clear screen" character. When you are typing in a 
program listing, enter it by simultaneously pressing the SHIFT and CLR HOME keys. This character appears on the dis- 
play screen as S3 (rather than 71). 

All programs in this book have been tested, run, and listed on a Commodore PET computer system model 2001 
with Commodore BASIC version 3.0. The sample runs and listings in this book were printed on a Commodore printer 
model 2022. The sample runs represent program output as it would appear on a display screen. In some cases it would 
be necessary to modify PRINT statements to achieve the same output directly on a printer. 



'PET is a registered trademark of Commodore Business Machines, Inc. 
2 CBM is a registered trademark of Commodore Business Machines, Inc. 
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Program Errors 

If you encounter an error or program difficulty which you believe is not your fault, we would like to hear about it. 
Please write the authors in care of the publishers, and include the following information: 

1 ) description of the error 

2) data entered which caused the error 

3) source listing of your program, from your computer (if possible) 

4) any corrections you have 

We appreciate your help in creating a book of tested BASIC programs that anyone can use. 



VIII 



Future Value of an Investment 



This program calculates a future value of an investment when interest is a factor. You must provide the 
amount of the initial investment, the nominal interest rate, the number of compounding periods per year and the 
number of years of investment. 

Assuming there are no additional deposits and no withdrawals, the future value is based on the following 
formula: 

T = P{\+i/N) N ' Y 

where: T = total value after Y years (future value) 

P = initial investment 

/ = nominal interest rate 

N = number of compounding period per year 

y = number of years 

Examples: 

Carl makes an investment of $6800.00 at 9.5%. If interest is compounded quarterly, what will be the value 
of Carl's investment in 10 years? 

Mr. Smith purchases a piece of property for $16,050.00. The value of property is rising at an average of 7% 
per year. What may Mr. Smith expect his property to be worth in 5V2 years? 

FUTURE VALUE OF AN INVESTMENT 

INITIAL INVESTMENT? 6809 
NOMINAL INTEREST RATE? 9.5 
COMPOUNDING PERIODS PER VEAR? 4 
NUMBER OF VEARS? 18 
FUTURE VALUE=* 17388.64 

MORE DATA? <1=VES,0=NO>? 1 

INITIAL INVESTMENT? 16958 
NOMINAL INTEREST RATE? 7 
COMPOUNDING PERIODS PER VEAR? 1 
NUMBER OF VEARS? 5.5 
FUTURE VALUE=* 23285.51 

MORE DATA? a=VES,@=N0>? @ 



10 PRINT "."FUTURE VALUE OF AN INVESTMENT" 
20 PRINT 

29 REM ~ STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 
40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT I 

70 PR I NT "COMPOUND I NO PERIODS PER VEAR"; 

80 INPUT N 



96 PRINT "NUMBER OF VEflRS"; 
108 INPUT V 

108 REM - CALCULATE INTEREST RATE PER PERIOD: 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

118 1=1 /N/1 00 

119 REM - CALCULATE FUTURE VALUE EV FORMULA 
126 T=P#<l+l)t<N#V> 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "FUTURE VALUE=*".: 
135 PRINT I NT CT* 1 O0+. 5 > /I 00 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REWIRED 

150 PRINT "MORE DATA? a=VES,0=NO>"; 
160 INPUT X 

170 IF X=l THEN 20 
ISO END 



OPTION 

This program allows you to enter a term of investment in whole years or decimal parts only. In some cases 
you may wish to enter the term of investment in years and months rather than just years. The program changes 
necessary follow the example listed below. 

Example: 

Herb invests $12,000.00 at 8% interest. Interest is compounded quarterly. What is the value of his invest- 
ment at the end of 10 years and 7 months? 

FUTURE VALUE OF AN INVESTMENT 

INITIAL INVESTMENT? 12000 
NOMINAL INTEREST RATE? 8 
COMPOUNDING PERIODS PER VEflR? 4 
NUMBER OF VEARS, MONTHS? 10,7 
FUTURE VALUE** 27749.5 

MORE DATA? a=VES,0=NO>? 



1 REM - OPTION 90-105 

10 PRINT "^FUTURE VALUE OF INVESTMENTS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS, MONTHS" 

100 INPUT V0,M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

105 V=<12*V0+M.V12 

108 REM - CALCULATE INTEREST RATE PER PERIOD; 



180 END 



Future Value of Regular Deposits (Annuity) 



This program calculates a future value when deposits are made regularly. All deposits are equal. You must 
provide the amount of each deposit, the number of deposits per year, the number of years, and the nominal in- 
terest rate. 

Assuming that interest is compounded with each deposit, the calculation is based on the following formula: 

T ~ R ' \ TIN 

where: T = total value after Y years (future value) 

R = amount of regular deposits 

N = number of deposits per year 

Y = number of years 

/ = nominal interest rate 

Examples: 

$50.00 is transferred each month from Matt's checking account to a Christmas Club savings account with 
5% interest. How much will Matt receive at the end of the year? 

Tim makes annuity payments of $175.00. The interest is 5.5%. What amount will Tim have accumulated in 
15 years? 

FUTURE VALUE OF REGULAR DEPOSITS 

AMOUNT OF REGULAR DEPOSITS? 56 
NOMINAL INTEREST RATE? 5 

# OF DEPOSITS PER VEAR? 12 
NUMBER OF VEARS? 1 
FUTURE VALUE = * 613.94 

MORE DATA? a=VES, 0=N0>? 1 

AMOUNT OF REGULAR DEPOSITS? 175 
NOMINAL INTEREST RATE? 5.5 

# OF DEPOSITS PER VEAR? 1 
NUMBER OF VEARS? 15 
FUTURE VALUE = $ 3921.52 

MORE DATA? <1=VES, 0=N0>? 



18 PRINT 'TFUTURE VALUE OF REGULAR DEPOSITS" 
26 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "AMOUNT OF REGULAR DEPOSITS"; 
40 INPUT R 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT I 

70 PRINT "# OF DEPOSITS PER VEAR"; 



86 INPUT N 

96 PRINT "NUMBER OF VEARS"; 

100 INPUT V 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT, 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 I=I/N/100 

119 REM - CALCULATE FUTURE VALUE BV FORMULA 

1 20 T=R# < < 1 + 1 > t < N# V > - 1 > / 1 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "FUTURE VALUE = $"; 
135 PRINT INT<T*100+.5>/100 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? <1=VES, 0=NO>"; 
160 INPUT X 

170 IF X=l THEN 20 
ISO END 



OPTION 

You may wish to enter the term of investment in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

How much will Ron receive in 10 years and 5 months if he transfers $50.00 each month into a trust fund 
with 5% interest? 

FUTURE VALUE OF REGULAR DEPOSITS 

AMOUNT OF REGULAR DEPOSITS? 50 
NOMINAL INTEREST RATE? 5 
# OF DEPOSITS PER VEAR? 12 
NUMBER OF VEARS, MONTHS? 10,5 
FUTURE VALUE = * 8179.31 

MORE DATA? (1=VES, 0=NO>? O 



1 REM - OPTION 90-105 

10 PRINT "."FUTURE VALUE OF REGULAR DEPOSITS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS, MONTHS" 

100 INPUT V0,M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

105 V=a2#V0+M>/12 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT 



180 END 



Regular Deposits 



This program calculates the amount required as a regular deposit to provide a stated future value in a 
specified time period. All deposits are equal. It is necessary for you to supply the future value, the nominal in- 
terest rate, the number of deposits per year and the number of years. 

The calculation for regular deposits is based on the following formula: 

UN \ 



R = T 



(1+///V) /v -y-l 



where: R = amount of regular deposit 

T = future value 

/ = nominal interest rate 

N = number of deposits per year 

Y = number of years 

Example: 

Mary would like $1000.00 at the end of one year in a savings account. How much must she deposit each 
month at 8% interest to achieve this? 

REGULAR DEPOSITS 

TOTAL VALUE AFTER V VEARS? 1OO0 
NOMINAL INTEREST RATE? 8 
# OF DEPOSITS PER VEAR? 12 
NUMBER OF VEARS? 1 
REGULAR DEPOSITS = * 89.32 

MORE DATA? a=VES, 0=N0>? 



18 PRINT "REGULAR DEPOSITS" 
26 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "TOTAL VALUE AFTER V VEARS"; 
40 INPUT T 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT I 

70 PRINT "# OF DEPOSITS PER VEAR"; 

80 INPUT N 

90 PRINT "NUMBER OF VEARS"; 

100 INPUT V 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT; 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 I=I/N/100 

119 REM - CALCULATE AMOUNT OF REGULAR DEPOSIT BV FORMULA 

120 R=T*I/<a+i>'KN*V>-l> 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 



136 PRINT "REGULAR DEPOSITS = *".: 
135 PRINT INT<R*100+.5>/100 
140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? U=VES, 0=NQ>"; 
160 INPUT X 

17© IF X=l THEN 20 
180 END 



OPTION 

You may wish to enter the term of investment in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

Ed would like to save $2000.00 for a new motorcycle. He would like to achieve this amount in 1 year and 5 
months. How much must he deposit each month if his interest is 896? 

REGULAR DEPOSITS 

TOTAL VALUE AFTER V VEARS? 2QQQ 
NOMINAL INTEREST RATE? 8 
# OF DEPOSITS PER VEAR? 12 
NUMBER OF VEARS, MONTHS? 1,5 
REGULAR DEPOSITS = $ 111.5 

MORE DATA? U=VES, 8=N0>? 6 



1 REM - OPTION 96-105 

i@ PRINT "."REGULAR DEPOSITS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS, MONTHS" 

100 INPUT V0,M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

1 0*5 V = ( 1 '-•'.'f'VO+M °) ■' 1 '"' 

108 REM - CALCULATE INTEREST RATE PER DEPOSIT, 



180 END 



Regular Withdrawals from an Investment 



in- 



This program calculates the maximum amount which may be withdrawn regularly from an investment over 
a specified time period. All withdrawals are assumed to be equal. You must provide the amount of the initial r 
vestment, the nominal interest rate, the number of withdrawals per year and the number of years; 

The maximum amount of withdrawals is calculated by the following formula: 

UN 



R=P 



M+i/N) N ' Y ^ 



where: R = amount of regular withdrawal 

P * initial investment 

/' — nominal interest rate 

N ■= number of withdrawals per year 

Y ■= number of years 

Because this program calculates a maximum amount, a balance of $0.00 will be left in your account at the 
end of the time period. You may withdraw any lesser amount under the same specifications and leave a remain- 
ing balance in your account. 

Example: 

David invests $8000.00 at 9.5%. He plans to make regular withdrawals every month for ten years, leaving 
nothing at the end. How much should he withdraw each time? 

REGULAR WITHDRAWALS FROM AN INVESTMENT 

INITIAL INVESTMENT? 8680 
NOMINAL INTEREST RATE? 9.5 
NUMBER OF WITHDRAWALS ? 12 
NUMBER OF VEARS? 18 
AMOUNT OF WITHDRAWALS = * 103.52 

MORE DATA? <1=VES, 0=N0>? 



18 PRINT "REGULAR WITHDRAWALS FROM AN INVESTMENT" 
20 PRINT 

29 REM - STATEMENTS 30 TO 10© REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 
40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 
60 INPUT I 

70 PRINT "NUMBER OF WITHDRAWALS"; 

71 PRINT "PER VEAR"; 
80 INPUT N 

90 PRINT "NUMBER OF VEARS"; 
100 INPUT V 

108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL; 

109 REM - CONVERT FROM PERCENT TO DECIMAL 



110 I=I/N/10© 

119 REM - CALCULATE REGULAR WITHDRAWAL BV FORMULA 

120 R=P*a/<a + I>t<N*V>-l>+I> 
125 K=INKR*100+.5V100 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "AMOUNT OF WITHDRAWALS = $",K 
14© PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA? (1=VES, 0=NO>"; 
16© INPUT X 

17© IF X=l THEN 20 
ISO END 



OPTION 



It may be more convenient to enter the period of investment in years and months rather than just years. The 
program changes necessary are listed following the example below. 

Example: 

How much could be withdrawn each week if you have an investment of $8000.00 at 9.5% interest to be 
withdrawn from for 10 years and 5 months? 

REGULAR WITHDRAWALS FROM AH INVESTMENT 

INITIAL INVESTMENT? 88O0 
NOMINAL INTEREST RATE? 9.5 
NUMBER OF WITHDRAWALS ? 52 
NUMBER OF VEARS, MONTHS? 10,5 
AMOUNT OF WITHDRAWALS = $ 23.28 

MORE DATA? a=VES, 0=NO>? 8 



1 REM - OPTION 98-105 

10 PRINT "REGULAR WITHDRAWALS FROM AN INVESTMENT" 



80 INPUT N 

98 PRINT "NUMBER OF VEARS, MONTHS" 

180 INPUT V8,M 

184 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

105 V=C12*V0+M>/12 

108 REM - CALCULATE INTEREST RATE PER WITHDRAWAL; 



180 END 



8 



Initial Investment 



This program calculates the investment necessary to provide a stated future value in a specified time period. 
You must enter the future value of the investment, the number of years of investment, the number of compound- 
ing periods per year and the nominal interest rate. 

The formula used to calculate the initial investment is as follows: 

T 
p = 

\\+HN)N' Y 

where: P = initial investment 

T = future value 

N = number of compounding periods per year 

Y = number of years 

/ = nominal interest rate 

Examples: 

How much must you invest at 8.5% to produce $10,000.00 at the end of 10 years if interest is compounded 
quarterly? 

Merchant Savings wishes to sell a bond which will be worth $5000.00 five years from the purchase date. In- 
terest will be 7.9% compounded daily. How much must the bank charge for the bond? 

INITIAL INVESTMENT 

TOTAL VALUE AFTER V YEARS? 18000 

# OF COMPOUNDING PERIODS PER YEAR? 4 
NUMBER OF VEARS? 10 

NOMINAL INTEREST RATE? 8.5 
INITIAL INVESTMENT = * 4312.38 

MORE DATA? <1=YES,0=NO>? 1 

TOTAL VALUE AFTER V VEARS? 50OO 

# OF COMPOUNDING PERIODS PER VEAR? 365 
NUMBER OF VEARS? 5 

NOMINAL INTEREST RATE? 7.9 
INITIAL INVESTMENT = $ 3368.54 

MORE DATA? <1=VES,0=NO>? 



10 PRINT "^INITIAL INVESTMENT" 
20 PRINT 

29 REM - STATEMENTS 38 TO 100 REQUEST USER INPUT 

30 PRINT "TOTAL VALUE AFTER V VEARS"; 
40 INPUT T 

50 PRINT "# OF COMPOUNDING PERIODS PER VEAR"; 
68 INPUT N 



70 PRINT "NUMBER OF VEflRS"; 

88 INPUT V 

90 PRINT "NOMINAL INTEREST RATE"; 

100 INPUT I 

108 REM - CALCULATE INTEREST RATE PER PERIOD 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 I=I/N/100 

119 REM - CALCULATE INITIAL INVESTMENT BV FORMULA 

120 P=T/a+I>t<N*Y> 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "INITIAL INVESTMENT «* * " ; 
135 PRINT INT<P*100+.5>/100 

140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

150 PRINT "MORE DATA?<1=YES,0=NO>"; 
160 INPUT X 

170 IF X=l THEN 20 
180 END 



OPTION 



The program above allows you to enter a period of investment of whole years and decimal parts only. You 
may wish to enter the period of investment in years and months rather than just years. The program changes 
necessary are Hsted following the example below. 

Example: 

Mary wishes to invest a sum in a savings bank. In 3 years and 8 months she would like to have $4000.00 in 
her account. If 8% interest is compounded monthly, what amount must Mary invest? 

INITIAL INVESTMENT 

TOTAL VALUE AFTER V YEARS? 4800 

# OF COMPOUNDING PERIODS PER YEflR^ 12 

NUMBER OF YEARS, MONTHS? 3,8 

NOMINAL INTEREST RATE? 8 

INITIAL INVESTMENT = $ 2986 

MORE DATA? a=VES,S=N0>? 8 



1 REM - OPTION 78-85 

18 PRINT "^INITIAL INVESTMENT" 



68 INPUT N 

76 PRINT "NUMBER OF YEARS, MONTHS" 

80 INPUT Y0,M 

84 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

85 V=(12*V0+M)/12 

90 PRINT "NOMINAL INTEREST RATE"; 



180 END 



10 



Minimum Investment for Withdrawals 



This program calculates the minimum investment required to allow regular withdrawals over a specified 
time period. The amount calculated is dependent upon the amount of each withdrawal, the number of with- 
drawals per year, the number of years, and the nominal interest rate on the investment. All withdrawals are equal. 

Only the least amount necessary for your investment is calculated; the program assumes a balance of $0.00 
to be left at the end of the time period. Any investment larger than the amount calculated will also enable you to 
withdraw the desired amount, but leave a remaining balance. 

Assuming that interest is compounded with each withdrawal, the calculation is based on the following for- 
mula: 

R'N l 1 \ 

P « 1 



where: P = initial investment 

R = amount of regular withdrawal 

/ « nominal interest rate 

N = number of withdrawals per year 

Y *= number of years 

Example: 

How much must you invest at 6% interest to allow monthly withdrawals of $100.00 for 5 years? 

MINIMUM INVESTMENT FOR WITHDRAWALS 

AMOUNT OF WITHDRAWALS? 188 

NOMINAL INTEREST RATE? 6 

# OF WITHDRAWALS PER VEAR? 12 

NUMBER OF YEARS? 5 

MINIMUM INVESTMENT = * 5172.56 

MORE DATA? (1=VES, 8=N0>? 8 



18 PRINT " MINIMUM INVESTMENT "; 
11 PRINT "FOR WITHDRAWALS" 

28 PRINT 

29 REM - STATEMENTS 38 TO 188 REQUEST USER INPUT 
38 PRINT "AMOUNT OF WITHDRAWALS"; 

48 INPUT R 

58 PRINT "NOMINAL INTEREST RATE"; 

68 INPUT I 

78 PRINT "# OF WITHDRAWALS PER VEAR"; 

88 INPUT N 

98 PRINT "NUMBER OF VEARS"; 

188 INPUT V 

189 REM - CONVERT FROM PERCENT TO DECIMAL 



/; 



110 1=1/100 

119 REM - CALCULATE MINIMUM INVESTMENT BV FORMULA 

120 P=R*N/I*a-iA , a+I/N)?<N*V>>> 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "MINIMUM INVESTMENT = $" ; 
135 PRINT INTa00*P+.5>/100 

140 PRINT 

149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
15© PRINT "MORE DATA? <1=VES, 0=NO>"; 

160 INPUT X 

170 IF X=l THEN 20 

150 END 



OPTION 



It may be more convenient to enter the term of investment in years and months rather than years. The pro- 
gram changes necessary are listed following the example below. 

Example: 

Tony withdrew $250.00 monthly for 6 years and 5 months. How much was his initial investment at 6% in- 
terest? 

MINIMUM INVESTMENT FOR WITHDRAWALS 

AMOUNT OF WITHDRAWALS? 250 
NOMINAL INTEREST RATE? 6 
# OF WITHDRAWALS PER VEfiR? 12 
NUMBER OF VEflRS, MONTHS? 6,5 
MINIMUM INVESTMENT = $ 15944.81 

MORE DATA? a=VES, 0=NO>? 



I REM - OPTION 96-105 

10 PRINT "SI IN I MUM INVESTMENT 

II PRINT "FOR WITHDRAWALS" 



80 INPUT N 

90 PRINT "NUMBER OF VEARS, MONTHS" 

100 INPUT V0,M 

104 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

105 V=(12*V0+M>/12 

109 REM - CONVERT FROM P^kCENT TO DECIMAL 



180 END 
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Nominal Interest Rate on Investments 



This program calculates the nominal interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. The nominal interest rate is usually subdivided for compounding pur- 
poses. 

"Nominal Interest Rate" is based on the following formula: 

± 



i -■ NiT/P) N ' Y - N 

where: / = nominal interest rate 

P = initial investment 

T = future value 

N — number of compounding periods per year 

Y = number of years 

The nominal interest rate is expressed as a yearly rate even though the interest rate used when compound- 
ing interest is 4j. The nominal interest rate will be less than the effective interest rate when interest is compounded 
more than once a year. This is because the nominal rate stated does not take into account interest compounded 
on interest earned in earlier periods of each year. For example, the schedule of earned interest on $100.00 at 5% 
compounded quarterly would be: 

/7100 

PERIOD BALANCE INTEREST NEW BALANCE 

N 

1 $100.00 • .0125 - $1.25 $101.25 

2 $101.25 • .0125 = $1.27 $102.52 

3 $102.52 • .0125 = $1.28 $103.80 

4 $103.80 • .0125 = $1.30 $105.10 

The effective interest rate in the example is 5.1 %, although the nominal rate is 5%. 

Examples: 

Jane invests $945.00 in a savings bank. Four and a half years later her investment amounts to $1309.79. If 
interest is compounded monthly, what is the nominal interest rate offered by the bank? 

Dick invests $3,000.00. Ten years later he has earned $1,576.00 in interest. If interest is compounded each 
month, what is the nominal interest rate on the account? 

NOMINAL INTEREST RATE ON INVESTMENTS 

PRINCIPAL? 945 

TOTAL VALUE? 1309.79 

NUMBER OF VEARS? 4.5 

# OF COMPOUNDING PERIODS PER VEAR? 12 

NOMINAL INTEREST RATE = 7.27613009 '/. 

MORE DATA? <1=VES, 0=NO>? 1 
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PRINCIPAL? 3900 

TOTAL VALUE? 4576 

NUMBER OF VEARS? 10 

# OF COMPOUNDING PERIODS PER VEfiR? 12 

NOMINAL INTEREST RATE = 4.2295659 '/. 

MORE DATA? (1=VES, 0=NO>? O 



"."NOMINAL INTEREST RATE 
"ON INVESTMENTS" 



10 PRINT 

11 PRINT 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 
"PRINCIPAL"; 

P 

"TOTAL VALUE"; 

T 

70 PRINT "NUMBER OF YEARS"; 
80 INPUT V 

"# OF COMPOUNDING PERIODS "; 

"PER VEAR"; 
100 INPUT N 

109 REM - CALCULATE NOMINAL INTEREST RATE BV FORMULA, 

110 I2-N*<<T/P>ta/<N*V>>-l>*100 

120 PRINT "NOMINAL INTEREST RATE *"; 

121 PRINT 12; "X" 
130 PRINT 

139 REM - 

140 PRINT 



30 PRINT 
40 INPUT 
50 PRINT 
60 INPUT 



90 PRINT 
95 PRINT 



PRINT 



150 INPUT X 

160 IF X=l THEN 20 

170 END 



RESTART OR END PROGRAM? USER INPUT REQUIRED 
"MORE DATA? C1=VES, 0=NO>"; 
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Effective Interest Rate on Investments 



This program calculates the effective interest rate for a known initial investment which amounts to a known 
future value in a specified period of time. This rate expresses the actual rate of interest earned annually on the in- 
vestment. 

The effective interest rate is calculated by the following formula: 

effective _ / future value \ _ 1 

interest rate I initial investment/ 

You may calculate the effective interest rate on amounts you have already invested and accrued interest. Or 
you may calculate the effective interest rate necessary to enable a principal to reach a hypothetical value in a 
specified amount of time. For instance, if you invest $5000.00 in a bank and desire $6800.00 after six years, you 
will predict the effective interest rate the bank must pay in order to achieve this. 

"Effective Interest Rate" may also be used to calculate the effective percent of depreciation of an invest- 
ment. Take your car, for example. If you bought it for $7534.00 and sold it for $3555.00 three years later, you will 
find that its actual depreciation (a negative interest rate) was approximately 22% each year. 

Examples: 

Jane deposits $945.00 in a savings bank. Four and a half years later her account has $1309.79. What actual 
percent of her initial investment did the bank pay annually? 

Dick bought his car in 1970 for $7534.84 and sold it in 1973 for $3555.00. What was its effective rate of 
depreciation? 



EFFECTIVE INTEREST RATE ON INVESTMENTS 

INITIAL INVESTMENT? 945 

TOTAL VALUE AFTER V VEARS? 1369.79 

NUMBER OF VEARS? 4.5 

ANNUAL INTEREST RATE = 7.52375279 K 

MORE DATA? <1=VES,8=N0>? 1 

INITIAL INVESTMENT? 7534.84 

TOTAL VALUE AFTER V VEARS? 3555 

NUMBER OF VEARS? 3 

ANNUAL INTEREST RATE = -22.1566143 'i 

MORE DATA? U=VES>0=NO>? 



10 PRINT "EFFECTIVE INTEREST RATE "; 

11 PRINT "ON INVESTMENTS" 

28 PRINT 

29 REM - STATEMENTS 30 TO 86 REQUEST USER INPUT 

30 PRINT "INITIAL INVESTMENT"; 
40 INPUT P 
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56 PRINT 
68 INPUT 
70 PRINT 
80 INPUT 



"TOTAL VALUE AFTER V VEARS"; 

T 

"NUMBER OF VEARS"; 

V 

89 REM - CALCULATE EFFECTIVE INTEREST RATE, PRINT 

90 PRINT "ANNUAL INTEREST RATE ="; 

99 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION 

100 PRINT <<T/P)t<l/V)~l>*100;"?i" 

109 PRINT 

110 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
120 PRINT "MORE DATA? <1=VES,0-NO>"; 

130 INPUT X 

140 IF X=l THEN 20 

150 END 
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Earned Interest Table 



This program calculates and prints an earned interest table for investments. The schedule contains the 
following outputs: 

1) Periodic balance 

2) Interest accumulated between two periods 

3) Total interest accumulated 

4) Effective interest rate 

These outputs may be calculated for a single investment or for an initial investment with regular deposits or 
withdrawals. If the table is to be tabulated for a single investment, you must provide the amount of the initial in- 
vestment, the nominal interest rate, and the number of compounding periods per year. Your new balance will be 
printed a maximum of four times per year. If interest is compounded less than four times per year, your new bal- 
ance will be posted with each interest computation. 

If the table is tabulated for regular deposits or withdrawals, you must provide the amount of the initial in- 
vestment, the nominal interest rate, the number of deposits or withdrawals per year and their amount. In this 
case it is assumed interest is compounded daily (360-day year). Your new balance will be printed at each deposit 
or withdrawal. 

Examples: 

Sally invests $2000.00 at 9.5% in a trust fund for ten years. Interest is compounded monthly. What is her 
yearly balance and earned interest for the last two years? 

John deposits $1000.00 at 8% in a passbook savings account. From each monthly paycheck $50.00 is 
deposited in this account. What is the earned interest table for the first year of this account? 

Ted deposits $1000.00 at 8% in his savings. Each quarter he withdraws $150.00. What is the earned in- 
terest table for year one of this account? 

EARNED INTEREST TABLE 

PRINCIPAL? 2800 

NOMINAL INTEREST RATE? 9.5 

# OF DEPOSITS/WITHDRAWALS PER YEAR? , .. , . „ ,W< 

# OF COMPOUNDING PERIODS PER YEAR? 12 ~ r*~« e ^ ^*«~* ^** 
START WITH WHAT YEAR? 9 

END PRINTING WITH WHAT YEAR? 18 
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VEflR 


BALANCE 


Q 


4365.8? 
4470.38 
4577.39 


10 


4799.17 
4914.06 

C.-J--I 4 -? 

jWo i. . r 
•_<l-_"i. 15 



EARNED INTEREST TABLE 

PRINCIPAL $ 2000 AT 9.5 '/. NOMINAL 
FOR 10 YEARS 

EFFECTIVE INTEREST RATE 9.92 '/. PER YEAR 

INTEREST ACCOM. INT. 
■"'■"•iCcr oc •"•■"•tr |=- o"» 

c.'.'D'J.Og iC'O-Js Oi 

104.51 2470.38 
107.01 2577.39 

itJJ. •_ l O £.000 ■ J? i 

1 1 •"' •"• 'S7QQ 1 "7 

114.89 2914.06 
117.64 3031.7 
120.45 3152.15 

11 
CHANGE DATA AND RECOMPUTE? 
a=VES,0=NO>? 1 

EARNED INTEREST TABLE 

PRINCIPAL? 1000 

NOMINAL INTEREST RATE? 8 

# OF DEPOSITS/WITHDRAWALS PER YEAR? 12 

AMOUNT OF DEPOSIT/WITHDRAWAL? 50 

START WITH WHAT YEAR? 1 

END PRINTING WITH WHAT YEAR? 1 

EARNED INTEREST TABLE 

PRINCIPAL $■ 1000 AT 8 K NOMINAL 
FOR 1 YEARS 

REGULAR DEPOSITS/WITHDRAWALS * 50 
12 TIMES PER YEAR 

EFFECTIVE INTEREST RATE 8.33 V. PER YEAR 

YEAR BALANCE INTEREST ACCUM. INT. 

1 1056.7 6.7 

i 1 1 O 70 7 CHO 

a j. 1 •_' « i ■_■ i . Oo 

•f 4 ""? 4 •"! .4 "J ^ £" 

i££.J. 0o .- . o4 

4 --■O - ? •-■•-I I - . •-■ -i 

icui . •_•■!. O . i£C' 

1345.94 8.62 

1404.95 9.61 
1464.36 9.41 
1524.17 9.81 
1584.17 18.21 
1644.98 10.61 
1706 11.01 
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6. I'' 




4 •-! 

J.O. 


!' O 


21. 


24 




08 


•-• r' . 


'JC 


45. 


94 


54. 


95 


64. 


36 


74. 


4 -7 

i r 


o*+. 


•3t' 


94. 


98 


106 





ENTER 'C TO CONTINUE? C 

CHANGE DATA AND RECOMPUTE? 
(l=VES,@=NO>? 1 

EARNED INTEREST TABLE 

PRINCIPAL? 1000 

NOMINAL INTEREST RATE? 8 

# OF DEPOSITS/ WITHDRAWALS PER YEAR? 4 

AMOUNT OF DEPOSIT/WITHDRAWAL? -150 

START WITH WHAT VEAR? 1 

END PRINTING WITH WHAT VEAR? 1 

EARNED INTEREST TABLE 

PRINCIPAL * 1000 AT 8 % NOMINAL 
FOR 1 VEARS 

REGULAR DEPOSITS/WITHDRAWALS £-150 
4 TIMES PER VEAR 

EFFECTIVE INTEREST RATE 8.33 ."; PER VEAR 

VEAR BALANCE INTEREST ACCUM. INT. 

1 



or y. 1 1 


20.17 


20.1? 


( •_'. 1 mil 


17.54 


37.71 


602.58 


14.87 


52.58 


464.72 


12.14 


64.72 



CHANGE DATA AND RECOMPUTE? 
a=VES,0=NO>? 



10 PRINT "LEARNED INTEREST TABLE" 
20 PRINT 

24 REM - ROUND OFF FUNCTION 

25 DEFFNR < X > = I NT < X'* 1 00+ . 5 > / 1 OO 

29 REM - STATEMENTS 30 TO 23© REQUEST USER INPUT 

30 PRINT "PRINCIPAL"; 
40 INPUT P 

50 PRINT "NOMINAL INTEREST RATE"; 

60 INPUT I 

69 REM - CONVERT PERCENT TO DECIMAL 

70 1=1/100 

80 PRINT "# OF DEPOSITS/WITHDRAWALS PER VEAR"; 
90 INPUT Nl 

99 REM - DON'T ASK FOR AMOUNT IF FREQUENCY IS ZERO 

100 IF N1=0 THEN 160 

108 REM - DEPOSITS ARE ENTERED AS A POSITIVE NUMBER 

109 REM - WITHDRAWALS ARE ENTERED AS A NEGATIVE NUMBER 

110 PRINT "AMOUNT OF DEPOSIT/WITHDRAWAL"; 
120 INPUT R 
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129 REM - INTEREST IS COMPOUNDED DfllLV 

138 N=360 

139 REM - PRINT AT EACH DEPOSIT/WITHDRAWAL 
146 L2=N1 

150 GOTO 200 

160 PRINT "# OF COMPOUNDING PERIODS PER VEAR" ; 

170 INPUT N 

ISO N1=0 

189 REM - PRINT FOUR TIMES EACH VEAR 

190 L2=4 

200 PRINT "START WITH WHAT VEAR"; 

210 INPUT X 

220 PRINT "END PRINTING WITH WHAT VEAR" ; 

230 INPUT V 

239 REM - START PRINTING AT THE BEGINNING OF A VEAR 

240 X=INKX> 

249 REM - INITIATE RUNNING TOTALS 

250 B0=P 
260 11=0 
270 12=0 
280 12=0 
290 K=66 
300 PI =4 

310 FOR JO=l TO INT<V>+1 

313 REM - START PRINTING? 

314 REM - IF FIRST VEAR, SKIP CHECK FOR FULL SCREEN 

315 IF J8=X THEN 378 
320 IF J6<X THEN 480 
330 IF K-C22 THEN 470 

338 REM - FULL SCREEN <22 LINES)? 

339 REM - IF VES, CLEAR SCREEN, PRINT HEADINGS 

342 REM - WAIT FOR OPERATOR CUE TO GO TO NEXT SCREEN 

344 PR I NT "ENTER 'C TO CONTINUE"; 

345 INPUT W* 
370 K=6+L2 

380 PRINT "Zi EARNED INTEREST TABLE" : PRINT 

390 PR I NT " PR I NC I PAL $ " ; P ; " AT " ; I # 1 80 ; " y m NOM I N AL " 
395 PR I NT " FOR " ; V ; " VEARS " : PR I NT 

399 REM - SKIP DEPOSIT/WITHDRAWAL HEADING IF THERE ARE NRNE 

400 IF N1=0 THEN 430 

418 PRINT "REGULAR DEPOSITS/WITHDRAWALS *":P 
415 PRINT" ";Nl; "TIMES PER VEAR": PR I NT 

419 REM - K COUNTS THE NUMBER OF PRINTED LINES PEP PARE 
430 PRINT "EFFECTIVE INTEREST RATE" ; 

435 PR I NT FNR < 1 00* ((1+1 ,-'N > tN- 1 ':• ':■ : 

436 PRINT '"/. PER VEAR" 
440 PRINT 

450 PRINT "VEAR BALANCE INTEREST ACCUM. INT. " 
459 REM - CALCULATE INTEREST 

468 PRINT 

469 REM - PRINT VEAR NUMBER 

470 PRINT JO.; 
488 Ll=l 

490 N2=l 

500 P2=l 

510 FOR Jl=l TO N 

519 REM - DEPOSIT/WITHDRAW ANV MORE THIS VEAR? 

20 



520 IF H2>N1 THEN 560 

529 REM - TIME TO MAKE DEPOSIT/WITHDRAWAL? 

538 IF N2/N1>J1/N THEN 560 

539 REM - CALCULATE NEW BALANCE 

540 B0=B0+R 

549 REM - COUNT DEPOSITS/WITHDRAWALS MADE PER VEAR 

550 N2=N2+i 

560 B2=B0*<1+I/N> 

569 REM - Il=AMOUNT INTEREST WITH EACH COMPOUNDING PERIOD 

579 REM - I3=AM0UNT INTEREST ACCUMULATED BETWEEN POSTINGS 

580 13=13+11 

589 REM - I2=T0TAL INTEREST ACCUMULATED TO DATE 

590 12=12+11 

599 REM - ROUND AT INTEREST POSTING TIME 

600 IF P2/P1XJ1/N THEN 640 
610 I2=FNRU2> 

620 B2=FNR<B2> 
630 P2=P2+1 

639 REM - VEAR TO START PRINTING? 

640 IF J8<X THEN 710 

649 REM - TIME TO PRINT A LINE? 

650 IF J1/'N<L1/'L2 THEN 710 
66Q L1=L1+1 

670 PRINT TAB<6>;FNR<B2>,FNR<I3>,FNR<I2> 

679 REM - INTEREST POSTED, REINITIALIZE INTEREST ACCUMULATED BETWEEN 

POSTINGS 
fi:-:fi I:-:=fi 

718 B8=B2 

719 REM - NO MORE LINES TO PRINT IN LAST VEAR? 

720 IF J0+Ji/'N-i>V THEN 780 
730 NEXT Jl 

739 REM - START PRINTING? 

740 IF JO<X THEN 770 
750 PRINT 

768 K=K+1+L2 
770 NEXT JO 
780 PRINT 

789 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

790 PRINT "CHANGE DATA AND RECOMPUTE?" 
795 PRINT "a=VES,0=NO>"; 

SO© INPUT Z 

810 PRINT 

820 IF Z=l THEN 18 

848 END 
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Depreciation Rate 



This program calculates the annual depreciation rate of an investment. You must provide the original price 
of the item, its resale price, and its age in years. 

The depreciation rate is calculated by the following formula: 

depreciation _ 1 / resale price \ 9 
rate I original price / 

Example: 

Joan bought her car for $4933.76 and sold it for $2400.00 three years later. What was its actual deprecia- 
tion rate? 

DEPRECIATION RATE 

ORIGINAL PRICE? 4933.76 

RESALE PRICE? 2406 

VEARS? 3 

DEPRECIATION RATE = 21.354 X 

MORE DATA? <1=VES#8=N0>? 

10 PRINT "^DEPRECIATION RATE" 

20 PRINT 

30 PRINT "ORIGINAL PRICE"; 

40 INPUT P 

50 PRINT "RESALE PRICE"; 

60 INPUT T 

70 PRINT "YEARS"; 

80 INPUT V 

39 REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT 

90 D=100*a-a/P>t<lA'>> 

100 PRINT "DEPRECIATION RATE ="; 

105 PRINT INTa000*D+.5>/1000;"?i" 

11© PRINT 

119 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

120 PRINT "MORE DATA? a=VES,0=NO>"; 
13© INPUT X 

140 IF X=l THEN 20 
150 END 
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Depreciation Amount 



This program calculates the dollar amount depreciated within a given year for a depreciating investment. 
You must provide the original price of the investment, its depreciation rate, and the year of depreciation. 

The depreciation amount is calculated by the foHowing formula: 

D = P •/•(1 -i) Y ' 1 

where: D = depreciation amount 

P — original price 

/ = depreciation rate 

y = year of depreciation 

Examples: 

Joan bought her car for $4933.76. Her model car depreciates at an average annual rate of 21%. What 
amount has the car depreciated in each of the first three years she has owned it? 

Joan is also concerned about the depreciation of the tape deck in her car. It cost her $1 55.00 two years ago, 
and has a depreciation rate of 22%. How much will its value decline in year three? 



DEPRECIATION AMOUNT 

ORIGINAL PRICE? 4933.76 
DEPRECIATION RATE? 21 
--CENTER VEAR=0 TO END)-- 
VEflR'"' 1 
DEPRECIATION = $ i@36.03 

VEflP' '-•' 

DEPRECIATION = $ SIS. 51 

VEAR? 3 

DEPRECIATION = $ 646.62 

VEAR? 6 

MORE DATA? a=VES,0=NO>? 1 

ORIGINAL PRICE? 155 

DEPRECIATION RATE? 22 

— CENTER VEAR=0 TO END) — 



DEPRECIATION^ * 20.75 >-,,.. »^| - *>« — j 



'-.'EAR - ? q 

MORE DATA? a=VES,0=NO>? 
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10 PRINT "^DEPRECIATION AMOUNT" 

28 PRINT 

30 PRINT "ORIGINAL PRICE"; 

40 INPUT P 

50 PRINT "DEPRECIATION RATE"; 

60 INPUT I 

69 REM - CONVERT FROM PERCENT TO DECIMAL 

70 1=1/100 

80 PRINT "— <ENTER VEAR-0 TO END>— " 

90 PRINT "VEAR"; 

100 INPUT V 

109 REM - THROUGH CALCULATING FOR THIS ITEM? 

11© IF V=0 THEN 160 

119 REM - CALCULATE DEPRECIATION AMOUNT BV FORMULA 

120 D=P*I*a-I>t<V-l> 

129 REM - ROUND OFF TO NEAREST CENT, PRINT 

130 PRINT "DEPRECIATION * *"; 
135 PRINT INT<D*100+.5V100 
140 PRINT 

149 REM - RETURN FOR NEXT VEAR NUMBER 

150 GOTO 90 

159 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

160 PRINT "MORE DATA? <1=VES,0=NO>"; 
170 INPUT X 

180 IF X=l THEN 20 
190 END 
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Salvage Value 



This program calculates the salvage value of an item at the end of a given year. It is necessary for you to 
provide the age of the item, its original price, and its depreciation rate. 

The salvage value is obtained by the following formula: 

S=P(1-i)Y 

where: S = salvage value 

P = original price 

/ = depreciation rate 

Y = age in years 

Example: 

What is the salvage value of Joan's car if it is three years old, she bought it for $4933.76, and it depreciates 
21 % annually? What would its salvage value be next year? 

Joan's tape deck is 2 years old. What is its salvage value if it cost $155.00 originally and depreciates at a rate of 

22%? 

SALVAGE VALUE 

ORIGINAL PRICE? 4333.76 

DEPRECIATION RATE? 21 

— < ENTER VEAR=0 TO END}-- 

VEARS? 3 

VALUE = * 2432.54 

VEARS? 4 

VALUE = * 1321.7 

ycrQpc;-":' fi 

MORE " DATA? < 1 =VES , 0=N0 > ? 1 

ORIGINAL PRICE? 155 
DEPRECIATION RATE? 22 
~<ENTER VEAR=8 TO END;— 
VEARS? 3 
VALUE = * 94.3 

Vf- AR'-''~' 

MORE " DATA? < 1 =VES , 0=N0 > ? 6 



10 PRINT "SALVAGE VALUE" 

20 PRINT 

30 PRINT "ORIGINAL PRICE"; 

40 INPUT P 

50 PRINT "DEPRECIATION RATE"; 

60 INPUT I 
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70 PRINT "—<ENTER VEAR=0 TO END> — " 

80 PRINT "VEARS"; 

90 INPUT V 

99 REM - CALCULATE ANOTHER SALVAGE VALUE? 

10© IF V=0 THEN 140 

108 REM - CALCULATE SALVAGE VALUE BV FORMULA, ROUND OFF, PRINT 

109 REM - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULA 
TIONS 

11© PRINT "VALUE = *'».; 

115 PRINT INT<100*P*< 1-1/100) 1Y+.5V180 

120 PRINT 

129 REM - RETURN FOR NEXT VEAR NUMBER 

130 GOTO 80 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? <1=VES,0=NO>"; 
15© INPUT X 

160 IF X=l THEN 28 
17© END 
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Discount Commercial Paper 



This program calculates the amount of discount and net cost of a discounted commercial paper. You must 
provide the future value of the paper, the discount rate and the number of days to maturity. 

The formulas used to calculate the discount and cost are as follows: 

D N 

discount = T • • 

100 360 
cost = T - discount 

where: T = total future value 
D = discount rate 
N = number of days to maturity 

Example: 

Canning Corporation purchases a $625,000.00 commercial paper due in 60 days at 5.4%. What is the dis- 
count and cost? ^^sfc^c: 

DISCOUNT COMMERCIAL PAPER rt V-A 

.J ~ '■■' '' 

FUTURE VALUE? 625068 „ ,,V > vv>/ 



DISCOUNT RATE? 5.4 
DAVS TO MATURITY? 66 
DISCOUNT = * 5625 
COST = $ 619375 

MORE DATA? <1=VES,0=H0>? 



. V 



10 PRINT "^DISCOUNT COMMERCIAL PAPER" 
20 PRINT 

29 REM - STATEMENTS 38 TO 90 REQUEST USER INPUT 

30 PRINT "FUTURE VALUE"; 
40 INPUT T 

50 PRINT "DISCOUNT RATE"; 

60 INPUT D 

€9 REM - CONVERT PERCENT TO DECIMAL 

70 D=D/100 

80 PRINT "DAVS TO MATURITY"; 

90 INPUT N 

99 REM - CALACULATE DISCOUNT, PRINT 

100 Dl=T#D*N/360 

110 PRINT "DISCOUNT = *";D1 

119 REM - CALCULATE COST, PRINT 

120 PRINT " COST = *";T-D1 
130 PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
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140 PRINT "MORE DATA? <1=VES,0=NO>"; 

15© INPUT X 

16© IF X=l THEN 20 

170 END 
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Principal on a Loan 



This program calculates an initial amount borrowed. This amount is dependent upon the interest rate, the 
amount of regular payments, the number of payments per year and the term of the loan. 

The calculation is based on the formula: 

R >N ( 1 \ 



P = 



(\+HN)N'Y 



where: P = principal 

R = regular payment 

/ = annual interest rate 

N = number of payments per year 

Y = number of years 

Example: 

Susan has agreed to pay $250.00 bimonthly for 3 years to repay a loan with 20% interest. What is the 
amount of the loan? 

Tom can afford to make payments of $180.00 per month to repay a loan. If he is willing to make payments 
for four and a half years and the loan company charges 16% interest, what is the maximum amount Tom can 
borrow? 



PRINCIPAL ON A LOAN 

REGULAR PAYMENT? 256 

TERM IN YEARS? 3 

ANNUAL INTEREST RATE? 28 

# OF PAYMENTS PER YEAR? 6 
PRINCIPAL = % 3343.45 

MORE DATA? <1=YES,8=N0>? 1 

REGULAR PAYMENT? 188 
TERM IN YEARS? 4.5 
ANNUAL INTEREST RATE? 16 

# OF PAYMENTS PER YEAR? 12 
PRINCIPAL = * 6897.51 

MORE DATA? <1=VES,8=N0>? 8 



18 PRINT "."PRINCIPAL ON A LOAN" 

28 PRINT 

29 REM - STATEMENTS 38 TO 188 REQUEST USER INPUT 
38 PRINT "REGULAR PAYMENT"; 

48 INPUT R 
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56 PRINT "TERM IN VEflRS"; 

60 INPUT V 

70 PRINT " ANNUAL INTEREST RATE"; 

30 INPUT I 

90 PRINT "# OF PAYMENTS PER YEAR"; 

100 INPUT N 

10S REM - CALCULATE AMOUNT OF PRINCIPAL BV FORMULA; 

109 PEM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS 

1 1 P=R*N* a - 1 / < < I / 1 00 > /N+ 1 > t ( N* V > > / < I / 1 00 > 

119 REM - ROUND OFF TO NEAREST CENT, PRINT 

120 PRINT "PRINCIPAL = *"; 
125 PRINT INKP*100+.5>/100 
ISO PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? <1=YES,0=NO>"; 
150 INPUT X 

16@ IF X=l THEN 20 
170 END 

OPTION 

In some cases it may be more convenient to enter the term of the loan in years and months rather than just 
years. The program changes necessary are listed following the example below. 

Example: 

What would be the amount of the mortgage if you were paying $75.00 a month for 1 1 months with 3% in- 
terest? 

PRINCIPAL ON A LOAN 

REGULAR PAYMENT? 75 
TERM IN YEARS, MONTHS? 0,11 
ANNUAL INTEREST RATE? 3 
# OF PAYMENTS PER YEAR? 12 
PRINCIPAL = % 812.76 

MORE DATA? <1=VES, 0=N0>? 9 

1 REM - OPTION 50-65 

16 PRINT "[PRINCIPAL ON A LOAN" 



40 INPUT R 

50 PRINT "TERM IN YEARS, MONTHS" 

60 INPUT Y0,M 

64 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

65 Y=<12*V0+M>/12 

70 PRINT "ANNUAL INTEREST RATE"; 



170 END 
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Regular Payment on a Loan 



This program calculates the amount required as regular payments in order to repay a loan over a specified 
time period. The specifications you must provide are the amount of the principal, the interest rate charged, the 
number of payments to be made per year and the number of years to pay. This program assumes all installment 
payments will be equal. 

The calculation is based on the formula: 

/ • PIN 



R = 



/ /' \ -N-Y 

1- - + 1 

\N 

where: R = regular payment 

/ = annual interest rate 

P = principal 

N = number of payments per year 

V = number of years 

Examples: 

What must you pay on a loan of $4000.00 at 8% if payments are to be made quarterly for five years? 

If Michael borrows $6500.00 at 12.5% from Best Rate Savings & Loan to be paid back over a period of 5.5 
years, what would his monthly payments be? 

REGULAR PflVMENT ON fl LOAN 

TERM IN VEfiRS? 5 

PRINCIPAL? 4009 

ANNUAL INTEREST RATE? 8 

# OF PflVMENTS PER VEflR? 4 
REGULAR PflVMENT = * 244.63 

MORE DATA? a=VES,0=NO>? 1 

TERM IN VEARS? 5.5 

PRINCIPAL? 6500 

ANNUAL INTEREST RATE? 12.5 

# OF PAYMENTS PER VEflR? 12 
REGULAR PflVMENT = $ 136.68 

MORE DATA? a=VES,0=NO>? 

10 PRINT "."REGULAR PflVMENT ON A LOAN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "TERM IN VEARS"; 
40 INPUT V 

50 PRINT "PRINCIPAL"; 
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68 INPUT P 

7© PRINT "ANNUAL INTEREST RATE"; 

80 INPUT I 

90 PRINT "# OF PAYMENTS PER YEAR"; 

10© INPUT N 

108 REM - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA; 

189 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS 

110 R=< a/100>*P/N>/< l-l/< < I/10OVN+1 ) f <N*V> > 

119 REM - ROUND OFF TO NEAREST CENT, PRINT 

120 PRINT "REGULAR PAYMENT = *"; 
125 PRINT INT<R*100+.5V100 

13© PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? a=VES,0=NO>"; 
150 INPUT X 

160 IF X=l THEN 20 
170 END 



OPTION 

You may find it more convenient to enter the term of payment in years and months rather than years. The 
program changes necessary are listed following the example below. 

Example: 

Mr. Terry needs $10,000.00 to put down on a new home. Best Rates offers this amount at 14.0% interest 
to be repaid over a period of 1 1 years and 5 months. What would be the amount of regular monthly payments? 



REGULAR PAYMENT ON A LOAN 

TERM IN YEARS, MONTHS? 11,5 
PRINCIPAL? 10060 
ANNUAL INTEREST RATE? 14 
# OF PAYMENTS PER YEAR? 12 
REGULAR PAYMENT = $ 146.59 

MORE DATA? a=VES,0=NO>? 6 



1 REM - OPTION 30-45 

10 PRINT "REGULAR PAYMENT ON A LOAN" 



29 REM - STATEMENTS 38 TO 180 REQUEST USER INPUT 

30 PRINT "TERM IN YEARS, MONTHS" 
40 INPUT V0,M 

44 REM - CALCULATE YEARS FROM YEARS AND MONTHS 

45 Y=a2*V0+M>/i2 

50 PRINT "PRINCIPAL"; 



170 END 
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Last Payment on a Loan 



This program calculates the amount of the final payment on a loan. This final payment will complete amor- 
tization of a loan at the conclusion of its term. You must provide the amount of the loan, the amount of the regu- 
lar payment, the interest rate charged, the number of payments per year and the term of payment. 

The amount of the last payment is normally different from the amount of the regular payment. The final 
payment will be a "balloon" payment if the final payment is larger than the regular payment. A balloon payment 
is necessary if applying the amount of the regular payment as the last payment leaves a remaining balance due. In 
order to entirely pay off the loan at the end of its term, this remaining balance is added to the amount of the 
regular payment to determine the amount of the last payment. 

On the other hand, the amount of the final payment is sometimes less than the regular payment. If the regu- 
lar payment as the last payment would result in a negative loan balance, then the last payment should be smaller. 
In this case the regular payment is adjusted by the amount of this hypothetical negative balance to determine the 
amount of the last payment. 

amount of _ regular + hypothetical balance due on a 
last payment ~~ payment loan after N • Y regular payments 

where: N = number of payments per year 
V = number of years 

Examples: 

Lynn borrowed $6000.00 at 5% from her father for college expenses. If she pays $1000.00 annually for 
seven years, what will her last payment be? 

Lynn borrows $1 150.00 at 8% interest to be repaid at a rate of $75.00 per month. A year and two months 
later Lynn decides to go to Europe. How much must she pay next month to completely pay off her loan? 

LAST PAYMENT ON A LOAN 

REGULAR PflVMENT? 1000 
PRINCIPAL? 6800 
TERM IN YEARS? 7 
ANNUAL INTEREST RATE? 5 
# OF PAYMENTS PER YEAR? 1 
LAST PAYMENT = * 1300.59 



MORE DATA? (1=YES,0=NO>? 1 

REGULAR PAYMENT? 75 
PRINCIPAL? 1150 
TERM IN YEARS? 1.17 
ANNUAL INTEREST RATE? 8 
# OF PAYMENTS PER YEAR? 12 
LAST PAYMENT = * 240.38 

MORE DATA? <1=YES, 0=NO>? 9 
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18 PRINT "IXfiST PRVMENT ON fl LORN" 

26 PRINT 

23 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT 

SO PRINT "REGULfiR PAYMENT"; 

40 INPUT R 

50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT "TERM IN YEARS"; 

SO INPUT V 

SO PRINT "ANNUAL INTEREST RATE"; 

100 INPUT I 

103 REM - CONVERT INTEREST FROM PERCENT TO DECIMAL 

110 1=1/100 

120 PRINT "# OF PAYMENTS PER YEAR"; 
130 INPUT N 
140 B0=P 

149 REM - COMPUTE ALL PAYMENTS, EALANCES THROUGH LAST PAYMENT USING R 

150 FOR Jl=l TO N*V 

159 REM - ROUND OFF INTEREST PAID TO NEAREST CENT 

160 I1=INK<B0*I/N>#100+.5.V100 

169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT 

170 A=R-I1 

179 REM - BALANCE REMAINING DECREASES WITH EACH PAYMENT 
ISO B0=B0-A 
190 NEXT Jl 

199 REM - CALCULATE LAST PAYMENT, ROUND OFF, PRINT 

200 PR I NT "LAST PAYMENT = *"; 
205 PR I NT INK < R+B0 > * 1 00+ . 5 ) / 1 00 
210 PRINT 

219 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

220 PRINT "MORE DATA? C1=VES,0=NO>"; 
230 INPUT X 

240 IF X=l THEN 26 
250 END 



OPTION 



The program above allows the term of payment on the loan to be entered in years only. You may wish to 
enter the term in years and months instead. The program changes necessary are listed following the example. 

Example: 

If you pay $40.00 a month for 2 years and 3 months on a loan of $1200.00 at 7.5%, what amount will the 
last payment total? 

LAST PAYMENT ON A LOAN 

REGULAR PAYMENT? 40 
PRINCIPAL? 1200 
TERM IN YEARS, MONTHS? 2,3 
ANNUAL INTEREST RATE? 7.5 
# OF PAYMENTS PER YEAR? 12 
LAST PAYMENT = $ 287.36 

MORE DATA? a=VES,0=NO>? @ 
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1 REM - OPTION 78-85 

10 PRINT "IXfiST PR WENT ON fl LOAN" 



60 INPUT P 

70 PRINT "TERM IN VEflRS, MONTHS" 

80 INPUT V0,M 

84 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

85 V=a2*V0+M>/12 

90 PRINT "ANNUAL INTEREST RATE"; 



250 END 
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Remaining Balance on a Loan 



This program calculates the balance remaining on a loan after a specified number of payments. It is necess- 
ary for you to provide the amount of the regular payment, the number of payments per year, the amount of the 
principal, the annual interest rate, and the payment number after which to calculate the remaining balance. 

The remaining balance is calculated by the following method: 

remaining _ p r j nc jp a | _ amount amortized after 
balance N • ( Y- 1)+ N1 payments 

where: N = number of payments per year 

Y — year to calculate remaining balance 
N1 = payment number in year V to calculate remaining balance 

Example: 

Kelly has taken out a loan of $8000.00 at 17.2% interest. His regular payments are $200.00 per month. If he 
has paid through the tenth payment in the fourth year, how much more does Kelly owe on his loan? 

REMAINING BALANCE ON fl LOAN 

REGULAR PAYMENT? 280 

PRINCIPAL? 8600 

# OF PAYMENTS PER YEAR? 12 

ANNUAL INTEREST RATE? 17.2 

LAST PAYMENT MADE: 

(PAYMENT NUMBER, YEAR)? 18,4 

REMAINING BALANCE = $ 2496. 17 

MORE DATA? a=VES,0=NO:r? 8 



18 PRINT "REMAINING BALANCE ON A LOAN" 

28 PRINT 

29 REM - STATEMENTS 30 TO 130 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENT"; 
40 INPUT R 

50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT "# OF PAYMENTS PER YEAR"; 

80 INPUT N 

90 PRINT "ANNUAL INTEREST RATE"; 

108 INPUT I 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1=1/10© 

119 REM - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. NK=N 

120 PRINT "LAST PAYMENT MADE:" 
125 PRINT "(PAYMENT NUMBER, YEAR)"; 
130 INPUT N1,Y 

139 REM - INITIALIZE REMAINING BALANCE 

140 B0=P 
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149 REM - LOOP TO ACCUMULATE AMOUNT PAID SO FAR 

150 FOR J 1=1 TO N*<V-1>+N1 

159 REM - CALCULATE INTEREST PAID WITH EACH PAYMENT 

1 68 1 1 = I NT < < BO* I /N > * 1 O0+ . 5 > / 1 90 

169 REM - CALCULATE AMOUNT AMORTIZED WITH EACH PAVMENT 

1 "7Q fl-p_ J ■( 

179 REM - CALCULATE REMAINING BALANCE ON PRINCIPAL 

188 BO=B0-A 

190 NEXT Jl 

199 REM - ROUND OFF, PRINT 

200 PRINT "REMAINING BALANCE = *"; 
205 PRINT I NT < BO* 1 O0+. 5. VI 00 

210 PRINT 

219 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

220 PRINT "MORE DATA? <1=VES,0=NO>".; 
230 INPUT K 

240 IF X=l THEN 20 
250 END 

OPTION 

You may wish to specify the number of the last payment made as the total payment number rather than the 
payment number within a certain year. For instance, when 4 payments are made per year, payment 3 of year 3 
would be entered as payment number 11. The program changes necessary are listed following the example 
below. 

Example: 

John made ten quarterly payments of $550.00 on a loan of $6000.00 with 16% interest. What is his remain- 
ing balance? 

REMAINING BALANCE ON fl LOAN 

REGULAR PAVMENT? 550 
PRINCIPAL? 6000 
# OF PAYMENTS PER VEflR? 4 
ANNUAL INTEREST RATE? 16 
NUMBER OF PAYMENTS MADE? 10 
REMAINING BALANCE = * 24278.09 

MORE DATA? a=VES,0=N0.V? @ 

1 REM - OPTION 119-130, 150 

10 PRINT "REMAINING BALANCE ON A LOAN" 

* 

M 

110 1=1/100 

119 REM* - ENTER THE PAYMENT NUMBER OF PAYMENTS MADE TO DATE 

120 PRINT "NUMBER OF PAYMENTS MADE"; 
130 INPUT Nl 

139 REM - INITIALIZE REMAINING BALANCE 
14© B0=P 

149 REM - LOOP TO ACCUMULATE AMOUNT PAID SO FAR 

150 FOR Jl=l TO Nl 

159 REM - CALCULATE INTEREST PAID WITH EACH PAYMENT 

250 END 
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Term of a Loan 



This program calculates the period of time needed to repay a loan. You must specify the amount of the 
loan, the amount of the payments, the number of payments to be made per year and the annual interest rate on 
the loan. All payments are assumed to be equal. 

The term of Dayment is derived from the following formula: 

P-i \ 
log M-. 

Y 



log 1- 

V N-R ) 1 




N 



where: Y = term of payment in years 

P = principal 

/ = annual interest rate 

N = number of payments per year 

/? = amount of payments 

Examples: 

What would be the duration of payment on a mortgage of $20,000.00 at 18% when payments of $1000.00 
are to be made quarterly? 

Sally takes out a loan for $12,669.00 at 16.8%. Her payments are $512.34 every two months. What is the 
term of her loan? 

TERM OF A LOAN 

REGULAR PflVMENT? 1800 

PRINCIPAL? 20000 

ANNUAL INTEREST RATE? 18 

# OF PAYMENTS PER YEAR? 4 
TERM = 13.1 YEARS 

MORE DATA? <1=YES,0=NO>? 1 

REGULAR PAYMENT? 512.34 

PRINCIPAL? 12669 

ANNUAL INTEREST RATE? 16.8 

# OF PAYMENTS PER YEAR? 6 
TERM = 7.1 YEARS 

MORE DATA? (1=YES,0=NO)? 8 
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10 PRINT 'TJTERM OF fl LOAN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "REGULAR PAVMENT"; 
40 INPUT R 

50 PRINT "PRINCIPAL"; 

60 INPUT P 

70 PRINT "ANNUAL INTEREST RATE"; 

80 INPUT I 

90 PRINT "# OF PAVMENTS PER VEAR"; 

100 INPUT N 

108 REM - CALCULATE TERM IN YEARS BV FORMULA; 

109 REM - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION 

110 V=-<LOG<l-<P*< 1/100) >AN*R>>/<LOG<1+I/100/N>*N>> 

119 REM - ROUND OFF TO NEAREST TENTH, PRINT 

120 PRINT "TERM ="; INT<V#10+.5.V10; 
125 PRINT "YEARS" 

ISO PRINT 

139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

140 PRINT "MORE DATA? a=YES,0=NCO"; 
150 INPUT X 

160 IF X=l THEN 20 
170 END 



OPTION 

It is possible to calculate the term of payment in years and months rather than just years. To do this, make 
the program changes listed following the example below. 

Example: 

Dick took out a loan for $8000.00 at 7.5%. Regular payments of $150.00 are to be made monthly. How long 
will it take to pay off the loan? 

TERM OF A LOAN 

REGULAR PAVMENT? 159 
PRINCIPAL? 8600 
ANNUAL INTEREST RATE? 7.5 
# OF PAVMENTS PER VEAR? 12 
TERM = 5 YEARS, 5 MONTHS 

MORE DATA? a=VES,0=N0)? 
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1REM - OPTION 114-120 

10 PRINT "TITERM OF A LORN" 



1 1 V=- < LOG < 1 - < P* ( I / 1 00 > > / < N#R > > / < LOG < 1 + 1 /' 1 80/N > 3#em > i 

114 REM -CALCULATE VEflRS AND MONTHS FROM VERRS 

115 M=INKY*12+.5> 

116 V0=INT<M/12> 

117 M=M-V0*12 

119 REM - PRINT RESULTS 

120 PRINT "TERM =".:V0; "VERRS, ";M; "MONTHS" 
130 PRINT 



170 END 
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Annual Interest Rate on a Loan 



This program calculates the rate at which interest is charged on a loan. To determine this rate you must 
enter the amount of the loan, the amount of the regular payment, the number of payments per year, and the term 
of the loan. 

The annual interest rate is computed by the following method of approximation: 

1) Guess an interest rate 
Initialize last guess to 

2) Compute regular payment using guessed rate: 

/ • PIN 

/?, = 

1-((1+/)//V)-W-^ 
Round off R , 

3) If computed payment = actual payment, then current guess — approximate interest rate 

4) Otherwise, save current guess and calculate a new guess 



<2 = 


/ 




( + »/?,</? 


/ ~ 


'±l 


(/- 


/,)/2| I 

{ - if R , >R 


5) Go to 2 








where: 


/ 


= 


interest rate 




>2 


= 


previous interest rate 




R 


= 


input regular payment 




*i 


= 


computed regular payment 




P 


= 


principal 




N 


= 


number of payments per year 




Y 


= 


number of years 



Examples: 

Cindy borrowed $3000.00 from her friend George with an agreement to pay back $400.00 quarterly for 2 
years. At what interest rate is she being charged? 

To pay back a loan of $10,000.00 John contracted to make monthly payments of $120.00 for 9.5 years. At 
what rate is interest being charged? 



ANNUAL INTEREST RATE ON A LOAN 

REGULAR PAYMENT? 480 

TERM IN YEARS? 2 

PRINCIPAL? 3060 

# OF PAYMENTS PER YEAR? 4 

ANNUAL INTEREST RATE = 5.827 >i 

MORE DATA? <1=YES,0=NO>? 1 
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REGULAR PflVMENT? 126 

TERM IN VEflRS? 9.5 

PRINCIPAL? 10080 

# OF PAYMENTS PER VEflR? 12 

ANNUAL INTEREST RATE = 6.933 '/. 

MORE DATA? <1=VES,0=NO>? 



10 PRINT "SiNNUAL INTEREST RATE ON A LOAN" 
20 PRINT 

29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT 

30 PRINT "REGULAR PAYMENT"; 
40 INPUT R 

50 PRINT "TERM IN YEARS"; 

60 INPUT V 

70 PRINT "PRINCIPAL"; 

SO INPUT P 

90 PRINT "# OF PAYMENTS PER VEflR"; 

100 INPUT N 

109 REM - GUESS AN INTEREST RATE <1QX> TO INITIATE TESTING 

110 1=10 

119 REM - I2=LAST GUESS OR ESTIMATE (START WITH 9> 

120 12=0 

129 REM - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE 

1 30 R 1 = < I *P/N > / CI - 1 / < ( I ,-'N+ 1 > t < N*V > > > 

139 REM - ROUND OFF TO NEAREST CENT 

140 R 1 = I NT < R 1 * 1 00+ . 5 > / 1 OO 

149 REM - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE 

150 I3=ABS<I-I2>/2 

159 REM - SAVE THIS GUESS 

160 12=1 

168 REM - COMPARE COMPUTED PflVMENT <R1) TO INPUT PflVMENT <R> ; 

169 REM - IF THEY'RE EQUAL, LAST RATE GUESSED=APPROXIMATE INTEREST RATE 

170 IF R1=R THEN 230 
180 IF R1>R THEN 210 

189 REM - RKR, RATE MUST BE HIGHER THAN LAST GUESS 

190 1=1+13 

199 REM - RETEST WITH NEW GUESS 

200 GOTO 130 

209 REM - R1>R, RATE MUST BE LOWER THAN LAST GUESS 

210 REM 
212 1=1-13 

219 REM - RETEST WITH NEW GUESS 

220 GOTO 130 

229 REM - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF-PRINT 

230 I = < (. I NT < (. I * 1 000 > * 1 00+ . 5 > > / 1 00 ) ,-' 1 001-1 

240 PRINT "ANNUAL INTEREST RATE =" ; 
245 PRINT I#100;"K" 
250 PRINT 

259 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

260 PR I NT " MORE DATA? < 1 =VES , 0=NO ^ " ; 
270 INPUT X 

280 IF K=l THEN 20 
290 END 
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OPTION 

The above listing allows the term of the loan to be entered in years only. You may wish to enter the term in 
years and months rather than years. The program changes necessary are listed following the example below. 

Example: 

If Connie pays $100.00 per month for 1 1 years and 7 months on a $10,000.00 loan, what is the annual in- 
terest rate on the loan? 



ANNUAL INTEREST RATE ON A LOAN 

REGULAR PAVMENT? 168 

TERM IN VEARS, MONTHS? 11,7 

PRINCIPAL? 10068 

# OF PAVMENTS PER VEAR? 12 

ANNUAL INTEREST RATE = 6.082 ;•; 

MORE DATA? a=VES,8=N0>? 8 



1REM - OPTION 58-65 

18 PRINT "ANNUAL INTEREST RATE ON A LOAN" 



48 INPUT R 

58 PRINT "TERM IN VEARS, MONTHS"; 

68 INPUT V8,M 

64 REM - CALCULATE VEARS FROM VEARS AND MONTHS 

65 V=<12*'V8+M>/12 

78 PRINT "PRINCIPAL"; 



298 END 
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All 



F* 



i. <C- 



Mortgage Amortization Table 



This program calculates and prints a loan repayment schedule. This schedule provides the following out- 
puts: 

1) Payment number 

2) Amount of each payment paid as interest 

3) Amount of the loan amortized with each payment 

4) Balance remaining on the principal at the time of each payment 

5) Accumulated interest paid at the time of each payment 

6) Amount of the last payment 

In addition, the yearly totals of interest paid and amount amortized are tabulated and printed. 

To use this program you must supply the amount of the regular payment, the term of payment, the number 
of payments per year, the amount of the principal and the annual interest rate. 

The schedule is calculated in the following manner: 

1) Payment number = payment number within each year 

2) Amount of each payment paid as interest = remaining balance • UN 

where: / = annual interest rate 

N — number of payments per year 

3) Amount amortized with each payment = R - 1 

where: R = amount of regular payment 

/ = amount of each payment paid as interest 

4) Balance remaining = P - 2 A 

where: P = principal 

2 A = sum of amounts amortized with each payment to date 

5) Accumulated interest = 2 / 

where: 2 1 = sum of amounts of each payment paid as interest to date 

6) Amount of last payment -R ■¥ (P -R » N *Y) 

where: R = regular payment 

P — principal 

N = number of payments per year 

Y = number of years 

Example: 

David needs $2100.00 to pay off some debts. His sister offers him the money at 6% interest. With pay- 
ments of $75.00 monthly for 2V2 years, what is David's repayment schedule? 

MORTGAGE AMORTIZATION TABLE 

REGULAR PAYMENT? 75 
TERM IN VEARS? 2.5 
PRINCIPAL? 210O 
ANNUAL INTEREST RATE? 6 
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PflVMENTS PER YEAR? 12 
START WITH WHAT VEflR? 1 

ENTER 'C TO CONTINUE? C 



MORTGAGE AMORTIZATION TABLE 

PRINCIPAL ■$ 2188 AT 6 .■•. FOR 2.5 VEARS 
REGULAR PAYMENT = * 75 

NO INTR AMORT BALANCE flCCUM INT 

1 10.5 64.5 2835.5 18.5 

2 10.18 64 . 82 1 970 . 68 28 . 68 

O Q OR £tz 1 tr -i QC*er cr--i --.i-i =■•"• 

O J . OJ DJ • i •_' i. JW-J « -_'C' C't" . -JO 

4 9.53 65.47 1848.06 48.86 

6 8.87 66.13 1788.13 58.13 

7 8.54 66.46 1641.67 66.67 

8 8.21 66.79 1574.88 74.88 

9 7.87 67.13 1587.75 82.75 
18 7.54 67.46 1440.29 90.29 

11 7.2 67.8 1372.49 97.49 

12 6.86 68.14 1304.35 184.35 



VR 1 184.35 795.65 
ENTER "C- TO CONTINUE? C 

MORTGAGE AMORTIZATION TABLE 

PRINCIPAL $ 2188 AT 6 ."•. FOR 2.5 VEARS 



:egu 


LAR PAYMENT = * 


75 




no 


INTR 


AMORT 


BALANCE 


ACCUM INT 


i 


t>. v-'ii. 


68.48 


1235.87 


110.87 


Cm 


6.18 


foy. '3d. 


1167.05J 


117.85 




5.84 


69. 16 


1097.89 


122.89 


4 


5.49 


69.51 


1 aoo -so ' 


< ■-■■-. OO 


5 


5.14 


69.86 




133.52 


6 


4.79 


70.21 


888.31 J 


138.31 


7 


4.44 


70. 56 


Oil . I -_• 


142.75 


© 


4.09 


70. 91 


746.84 


146.84 


9 


3.73 


T 4 •->-? 
1 I . cf 


675.57 ' 


158.57 


10 




71.62 


603.95 i 


153.95 


11 


3.02 


71.98 


531.97 


156.97 


12 


2.66 


72. 34 J 


459.63 


159.63 



YR 2 55.28 844.72 
ENTER •C" TO CONTINUE? C 
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MORTGAGE AMORTIZATION TABLE 

PRINCIPAL * 2100 AT 6 ,••." FOR 2.5 VEARS 



:egu 


LAR PA'i 


r'MENT = $ 


75 




NO 


INTR 


AMORT 


BALANCE 


ACCOM INT 


1 


■~i •"» 


i c . i 


386.93 


161.93 


."•, 


I! 93 


"70 C| "7 


313.86 


163.86 


%r* 


1.57 




240.43 


165.43 


4 


1 •■■ 

J. a C 




166.63 


166.63 


5 


. CO 


74.17 


92.46 


167.46 


6 


.46 


92.46 





167.92 



LAST PAVMENT = * 92.92 
VR 3 8.29 459.63 



CHANGE DATA AND RECOMPUTE? 
a=VES,0=NO>? G 



10 PRINT "MORTGAGE AMORTIZATION TABLE" 
20 PRINT 

29 REM - STATEMENTS 38 TO 158 REQUEST USER INPUT 

30 PRINT "REGULAR PAVMENT".; 
40 INPUT R 

50 PRINT "TERM IN VEARS"; 

60 INPUT V 

70 PRINT "PRINCIPAL"; 

SO INPUT P 

98 PRINT "ANNUAL INTEREST RATE"; 

180 INPUT I 

109 REM - CONVERT FROM PERCENT TO DECIMAL 

110 1=1/100 

120 PRINT " PAYMENTS PER VEAR"; 

130 INPUT N 

140 PRINT "START WITH WHAT VEAR"; 

ISO INPUT X 

159 REM - START PRINTING AT BEGINNING OF A VEAR 

168 X=INTOO 

1€S REM - INITIALIZE VARIABLES 

170 C1=0 

ISO 12=0 

190 13=0 

280 .Tfi=0 

218 N1=N 

228 K=28 

238 B8=P 

240 A 1=0 

258 A2=8 

259 REM - TERM LESS THAN ONE VEAR? 

268 IF INT<V»=1 THEN 278 
262 N1=<<V-INT<V>>*12>/12*N 

264 -T0=J0+1 

265 GOTO 288 

269 REM - LOOP FOR EACH VEAR 
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270 FOR JQ=1 TO INT<V> 
279 REM - START PRINTING? 

288 IF J0O« THEN 41© 

289 REM - CHECK FOR FULL SCREEN (20 LINES) 

290 IF K+N+3<20 THEN 400 

295 REM - WRIT FOR OPERATOR CUE TO GO TO NEXT SCREEN 

297 PRINT 

300 PRINT "ENTER 'C TO CONTINUE"; 

310 INPUT W* 

330 PRINT 

339 REM - PRINT PAGE HEADINGS 

340 PRINT "H10RTGAGE AMORTIZATION TABLE" : PR I NT 
350 PRINT "PRINCIPAL $";P," AT".; 1*100; 

355 PRINT ""; FOR" ;V" YEARS" 

360 PRINT "REGULAR PAYMENT = *";R 

370 PRINT 

380 PRINT " NO INTR AMORT", 

385 PRINT "BALANCE", "ACCUM INT" 

389 REM - COUNT LINES PRINTED ON EACH PAGE IN K 

390 K=7 
400 K=K+N+3 

410 FOR Jl=l TO Nl 

419 REM - CALCULATE INTEREST PAID THIS PAYMENT, ROUND OFF 

420 Il=INT<<B0*I/H>*100+.5>/100 

429 REM - COUNT NUMBER OF PAYMENTS MADE SO FAR 

430 C1=C1+1 

439 REM - CALCULATE AMOUNT AMORTIZED THIS PAYMENT 

440 A=R-I1 

449 REM - SUM AMOUNT AMORTIZED TO DATE 

450 A1=A1+A 

459 REM - CALCULATE BALANCE DUE 

460 B0=P-A1 

468 REM - LAST PAYMENT? IF YES, CALCULATE AMOUNT SO THAT THE 

469 REM - BALANCE DUE EQUALS SGO.OO AFTER THIS PAYMENT 

470 IF C10N*V THEN 520 
480 R=R+B0 

490 A=A+B0 
500 A1=A1+B0 
510 BO=0 

519 REM - SUM INTEREST PAID TO DATE 

520 12=12+11 

529 REM - SUM INTEREST PAID THIS YEAR 

530 13=13+11 

539 REM - SUM AMOUNT AMORTIZED THIS YEAR 

540 A2=A2+A 

54 1 A2= I NT ( A2* 1 00+ . 5 > /' 1 Q& 

549 REM - STARTED PRINTING? IF YES, PRINT COMPUTED VALUES IN TABLE 

550 IF JOCK THEN 570 

55 1 A= I NT < A* 1 00+ . 5 > / 1 00 

560 PR I NT J 1 ; TAB < 4 > ; 1 1 ; TAB < 1 2 > ; A ; 

56 1 BO= I NT < BO* 1 00+ . 5 ) / 1 OO 

565 PR I NT TAB < 29 > ; BO ; TAB < 28 > ; 1 2 
570 NEXT Jl 

579 REM - LAST PAYMENT? IF YES, ROUND OFF, PRINT 

580 IF CK>N*V THEN 600 

590 PRINT " LAST PAYMENT = *";INT<R* 1 88+. 5 VI 08 
599 REM - STARTED PRINTING? IF YES, PRINT YEARLY TOTALS 
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606 IF J8<X THEN 648 

61@ PRINT 

628 PRINT "VR";J0;I3;ft2 

638 PRINT 

639 REM - COMPLETED TERM? 

640 IF ,T0>V THEN 728 

649 REM - REINITIALIZE VEARLV VflRIFfELES 

650 13=0 
660 fl2=0 

670 NEXT J© 

671 J0=J0-1 

679 REM - NEED TO PRINT A PARTIAL VEAR? 

680 IF VOJO THEN 262 
720 PRINT 

729 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

730 PRINT "CHANGE DATA AND RECOMPUTE?" 
735 PR I NT " < 1 =VES , 0=NO > " ; 

740 INPUT Z 

750 IF Z=l THEN 20 

760 END 



OPTION 

You may wish to enter the term of payment in years and months rather than years. The program changes 
necessary are listed following the example below. 

Example: 

If you took out a loan for $700.00 from a friend at 9% interest and were to pay $100.00 per month for 8 
months, what would your repayment schedule be? 

MORTGAGE AMORTIZATION TABLE 

REGULAR PAVMENT? 100 

TERM IN VEARS, MONTHS? 8,3 

PRINCIPAL? 700 

ANNUAL INTEREST RATE? 9 

PAYMENTS PER VEAR? 12 

START WITH WHAT VEAR? 1 

ENTER -C- TO CONTINUE? C 
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MORTGAGE AMORTIZATION TABLE 

PRINCIPAL * 760 AT 9 '/. 

FOR VEARS 8 MONTHS 
REGULAR PAVMENT = $ 18® 



NO 


INTR 


AMORT 


BALANCE 


ACCOM 


INT 


1 


5.25 


94.75 


605.25 


5.25 




*~i 


4.54 


95.46 


509.79 


9. 79 




O 


3 . 82 


96. 18 


413.61 


13.61 




4 


3.1 


96.9 


316.71 


16.71 




5 




97.62 


219.09 


19.09 




6 


1.64 


.70 > oo 


120.73 






r" 


.91 


99 . 09 


21.64 


21.64 




*~i 


.16 


21.64 





21.8 





LAST PAVMENT = * 21.8 
•'R 1 21.8 700 



CHANGE DATA AND RECOMPUTE? 
<1=VES,0=NO>?0 



1 REM - OPTION 50-65,350 

10 PRINT "MORTGAGE AMORTIZATION TABLE" 



40 INPUT R 

50 PRINT "TERM IN VEARS"; 

60 INPUT V 

64 REM - CONVERT VEARS AND MONTHS TO VEARS 

65 V=a2*V0+M.V12 

70 PRINT "PRINCIPAL"; 



340 PRINT "MORTGAGE AMORTIZATION TABLE": PRINT 
350 PRINT "PRINCIPAL $";P;" AT"; 1*100; 
355 PRINT " V. - " FOR " ; VO ; " VEARS " ; M ; " MONTHS " 

360 PRINT "REGULAR PAVMENT = $";R 



760 END 



49 



Greatest Common Denominator 



This program calculates the greatest common denominator of two integers. It is based on the Euclidean 
algorithm for finding the GCD: 

1) Enter A,B 

A = absolute value of A 
B - absolute value of B 

2) Calculate R = A - B • (integer of (A IB )) 

3) Is /? = 0?. If yes, the GCD = B 

If no, go to step 4 

4) A = B 
B=R 

5) Go to step 2 

Example: 

Find the greatest common denominator of 50 and 18, 115 and 150. 

GREATEST COMMON DENOMINATOR 

< ENTER 0,8 TO END PROGRAM? 
ENTER TWO NUMBERS? 58,18 
G.C.D: 2 

ENTER TWO NUMBERS? 115,15© 
G.C.D: 5 

ENTER TWO NUMBERS? 8,0 



18 PRINT "^GREATEST COMMON DENOMINATOR" 
20 PRINT 

30 PRINT "(ENTER 0,0 TO END PROGRAM >" 
40 PRINT "ENTER TWO NUMBERS"; 

58 INPUT A,B 

59 REM - END PROGRAM? 

60 IF AO0 THEN 90 
70 IF BOO THEN 98 
8© GOTO 190 

BS REM - CALCULATE GCD ACCORDING TO EUCLIDEAN ALGORITHM, PRINT RESULT 

90 A=ABS<A> 

100 B=ABS(B> 

110 R=A-B*INT<A/B) 

120 IF R=8 THEN 168 

138 A=B 

148 B=R 

158 GOTO 118 

ISO PRINT "G.C.D' ";B 
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169 REM - PRINT BLANK LINE TO SEPARATE SETS OF DATA 

176 PRINT 

179 REM-RESTART PROGRAM 

ISO GOTO 40 

190 ENB 
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Prime Factors of Integers 



-^ C^)l i~. 



This program lists the prime factors of an integer. It will not test for the integer 0. 

Examples: 

What are the prime factors of -49? 

Factor 92 into primes. 

PRIME FACTORS OF INTEGERS # 

ENTER 8 TO END PROGRAM) 
NUMBER? -49 
-1 
7 f 2 



NUMBER? 92 
1 



2 f 2 

5*5 



23 t 1 
NUMBER? @ 



18 PRINT "IPRIME FACTORS OF INTEGERS" 
28 PRINT 

38 PRINT "(ENTER 8 TO END PROGRAM)" 
48 PRINT "NUMBER"; 

58 INPUT Z 

59 REM - END PROGRAM? 
68 IF Z=8 THEN 288 

€-9 REM - THE SIGN OF THE NUMBER IS AL WAV'S A FACTOR 

70 PRINT SGhKZ) 

79 REM - USE ABSOLUTE VALUE FOR CALCULATIONS 

88 Z=ABS<Z> 

S8 REM - LOOP TO TEST ALL INTEGERS <2 THROUGH Z> AS PRIME FACTORS 

89 REM - INTEGERS Z/2 THROUGH Z WILL HAVE NO NEW FACTORS 
98 FOR 1=2 TO Z/2 

188 S=0 

110 IF Z/IOINT<Z/I> THEN 15© 
120 Z=Z/I 
130 S=S+1 
140 GOTO 110 

149 REM - FIND A PRIME FACTOR? IF VES, PRINT 

150 IF S=0 THEN 170 

159 REM - PRINT FACTORS WITH EXPONENTS; I1S=I TO THE S POWER 

160 PRINT I;"f';S 
170 NEXT I 

130 PRINT 
190 GOTO 40 
200 END 
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Area of a Polygon 



• Mc 



»_;C. y £. UCi^. 'L-!~ a 



'" L '7 



This program calculates the area of a polygon. You must supply the x - and y -coordinates of all vertices. 
Coordinates must be entered in order of successive vertices. 

The formula used to calculate the area is: 

Area=(x 1 +x 2 ).(v 1 -y 2 ) + (x 2 + x 3 ).(/ 2 -/ 3 ) + . . . (x„ + x ,) •(/„-/,) 12 
where n =the number of vertices. 

The number of vertices you may enter is currently limited to 24. You may increase or decrease this limit by 
altering statement 30 according to the following scheme: 

30 DIM X(/7+ />, Y</7+ /) 



Example: 

Approximate the area of Lake Boyer. 
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AREA OF fl POLVGON 

< ENTER 6 TO END> 
NUMBER OF VERTICES? 14 
COORDINATES: 

VERTEX 1 ? 6,4 
VERTEX 2 ? 1,7 
VERTEX 3 ? 4,8 
VERTEX 4 ? 5,10 
VERTEX 5 ? 7,11 
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VERTEX 6 ? 9,10 
VERTEX 7 ? 12,9 
VERTEX 8 ? 14,8 
VERTEX 9 ? 13,4 
VERTEX 10 ? 15,4 
VERTEX 11 ? 15,1 
VERTEX 12 ? 13,0 
VERTEX 13 ? 5,1 
VERTEX 14 ? 4,2 
AREA = 108 

CENTER TO END) 
NUMBER OF VERTICES? O 



10 PRINT M .TARES OF A POLVGON" 
20 PRINT 

29 REM - COORDINATE RRRflVS SHOULD BE SET TO (NUMBER OF VERTICES +1> 

30 DIM X<25),V<25) 

46 PRINT "(ENTER O TO END)" 
45 PRINT "NUMBER OF VERTICES"; 
50 INPUT N 

59 REM - END PROGRAM? 

60 IF N=0 THEN 230 

69 REM - LOOP TO ENTER COORDINATES IN ORDER OF SUCCESSIVE VERTICES 

70 FOR 1=1 TO N 

80 IF I>1 THEN 110 

90 PRINT "COORDINATES-" 

95 PRINT " VERTEX"Jl; 

100 GOTO 120 

110 PRINT " VERTEX"; I; 

120 input xa>,va) 

130 NEXT I 

139 REM - FIRST VERTEX SERVES AS LAST VERTEX 

140 XCN+1)=XU) 
150 V(N+1)=V(1) 
166 A=0 

169 REM - CALCULATE AREA, PRINT 

170 FOR 1=1 TO N 

1 80 A= A+ < X < I ) +X a + 1 ) ) * < V < I ) - V < I + 1 ) ) 

190 NEXT I 

200 PRINT "AREA ="; ABS<A),-'2 

210 PRINT 

219 REM - RESTART PROGRAM 

220 GOTO 40 
230 END 
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Parts of a Triangle J* ■> L* I 



n>e>e k 0&-re> 



This program calculates three unknown parts of a triangle when three parts are given. At least one part 
given must be the length of a side. There are five possibilities for data entry: 

1) Angle, side, angle 

2) Side, angle, side 

3) Angle, angle, side 

4) Side, side, angle 

5) Side, side, side 

Data must be entered in the order it appears in a triangle, either clockwise or counterclockwise. 

Example: 

The base of a triangle measures 14 inches. The base angles measure .45 and 2.1 radians. What are the 
measurements of the triangle? 




PARTS OF A TRIANGLE 

PROBLEM TVPES= 

1=ASA, 2=SfiS, 3=AAS 
4=SSfl, 5=SSS, 6=END 

ENTER PROBLEM TVPE? 1 

ENTER ANGLE, SIDE, ANGLE? .45,14,2.1 

SIDE 1 = 10.913 
OPPOSITE ANGLE= .45 RADIANS 
SIDE 2 = 21.6? 
OPPOSITE ANGLE= 2.1 RADIANS 
SIDE 3 = 14 

OPPOSITE ANGLE= .592 RADIANS- 
ENTER PROBLEM TVPE? 6 
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18 PRINT "[FARTS OF R TRIANGLE" 

2@ PRINT 

30 DIM A<3>, S<3> 

38 REM - ENTER NUMBER OF PROBLEM TVPE ACCORDING TO KNOWN PARTS 

33 REM - OF THE TRIANGLE WHERE A=ANGLE, S=LENGTH OF SIDE 

40 PRINT "PROBLEM TVPES:" 

50 PRINT SPCC15>;"1=RSA, 2=SAS, 3= A AS" 

55 PRINT SPC<15).;"4=SSA, 5=SSS, 6=END" 

57 PRINT 

60 PRINT "ENTER PROBLEM TVPE"; 

70 INPUT X 

79 REM - DIRECT PROGRAM TO PROPER CALCULATIONS 

80 IF K=6 THEN 560 
30 IF X=5 THEN 390 
100 IF X-4 THEN 300 
110 IF X=3 THEN 260 
120 IF X=2 THEN 19© 

130 PRINT "ENTER ANGLE, SIDE, ANGLE"; 

140 INPUT A(1>,SC3>,R<2) 

1 50 A (. 3 > =it- A < 1 > -A < 2 > 

1 60 S < 1 > =S < 3 > #S I N i A < 1 > > /S I N < A < 3 > ) 

170 S<2>=S<3>*SIN< A<2> >/SINCA<3> > 

ISO GOTO 440 

190 PRINT "ENTER SIDE, ANGLE, SIDE"; 

200 INPUT S<3>,Aa>,S(2> 

2 1 S < 1 > =SQR ( S ( 3 > 12+S < 2 > t2-2*S i 3 > #S <. 2 > #COS < A < 1 > ) > 

220 A < 2 > =S I N < A < 1 > > ,-'S < 1 ) #S < 2 > 

230 A (. 2 > = ATN < A C 2 > /SQR < 1 - < A < 2 ) > t2 > > 

240 A (. 3 > =tr- A < 1 > -A < 2 > 

250 GOTO 440 

260 PRINT "ENTER ANGLE, ANGLE, SIDE"; 

270 INPUT A<3>,A<2>,S<3> 

280 A < 1 > =tr- A < 2 > - A < 3 ) 

290 GOTO 160 

300 PRINT "ENTER SIDE, SIDE, ANGLE"; 

310 INPUT S<l>,S<2>,fl<l> 

320 T=S < 2 > *S I N < A < 1 > ) 

330 IF S<1KT THEN 52© 

340 S < 3 > =SQR < S < 2 > 12-1 12 ') 

350 IF S<1X=T THEN380 

360 V=SQR < S < 1 ) t2-T T2 ) 

370 S<3)=S03>+V 

380 GOTO 220 

390 PRINT "ENTER SIDE, SIDE, SIDE"; 

400 INPUT S<1>,S<2>,S03> 

410 fl(l > = <SC2) T2+S<3> t2-SX" 1 > t2V2/S<2>/S<3> 

420 A < 1 > = ATN < < SQR <l-<fl<l> > 12 > > /A < 1 > > 

430 GOTO 220 

440 PRINT 

449 REM - RESTART PROGRAM 

450 FOR 1=1 TO 3 

459 REM - THE ANGLE OF A TRIANGLE CANNOT BE LESS THAN ZERO 

460 IF AaXO THEN 520 
470 PRINT "SIDE";I,"="; 

475 PRINT INT<S<I>*1000+.5V1000 
480 PRINT "OPPOSITE ANGLE="; 
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485 PRINT INT<fl<I)*1000+.5)/ 


'' 1 000 


436 PRINT "RADIANS" 




490 NEXT I 




500 PRINT 




510 GOTO 60 




520 PRINT 




530 PRINT "NO SOLUTION" 




540 PRINT 




549 REM - RESTART PROGRAM 




55© GOTO 60 




560 END 





OPTION 

It may be more convenient for you to work with angles in degrees rather than radians. The program 
changes necessary are listed following the examples below. == " 

Examples: 

A square measures 8.76" x 8.76". What is the length of its diagonal? 

8.76" 




The ladder of a slide measures 10', the slide 14', and it covers 13' of ground from base of ladder to tip of 
slide. How steep is the slide? 




PARTS OF A TRIANGLE 

PROBLEM TVPES = 

i=ASA, 2=SAS, 3=AAS 
4=SSA, 5=SSS, 6=END 

ENTER PROBLEM TVPE? 2 

ENTER ANGLE, SIDE, ANGLE? 8.76,90,8.76 
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SIDE 1 = 12.389 
OPPOSITE flNGLE= 98 DEGREES- 
SI BE 2 = 8.76 

OPPOSITE flNGLE= 45 DEGREES 
SIDE 3 = 8.76 

OPPOSITE flNGLE= 45 DEGREES- 
ENTER PROBLEM TVPE? 5 
ENTER ANGLE, SIDE, ANGLE? 18,13,14 

SIDE 1 = 1@ 

OPPOSITE ANGLE= 43.279 DEGREES- 
SIDE 2 = 13 

OPPOSITE ANGLE= 63.827 DEGREES 
SIDE 3 = 14 

OPPOSITE ANGLE= 73.694 DEGREES- 
ENTER PROBLEM TVPE? 6 



1 REM - OPTION 34-35,145-456,285,275-276,315,485 
10 PRINT "IT ARTS OF A TRIANGLE" 

34 REM - SET CONVERSION FACTOR FOR CONVERTING DEGREES TO RADIANS 

35 C=. 81 74532927 

40 PRINT "PROBLEM TYPES" 



1 40 I NPUT A < 1 > , S ( 3 > , A ( 2 ) 

145 ACl>=Aa>*C 

146 A<2>=A(2>*C 

1 50 A < 3 > =fr- A ( 1 > -A < 2 > 

■ 

200 I NPUT S < 3 > , A < 1 > , S < 2 > 

205 A<1>=A<1>*C 

210 S(l >=SQR<S<3> T2+S<2> t2-2*S<3>*S(2>*C0S< f\< 1 > > > 

H 

■ 

270 I NPUT A < 3 > , A < 2 ) , S < 3 > 

275 A<3>=A(3>*C 

276 A<2>=A<2>*C 

280 A<l>=ff-A<2>-A<3> 

a 
■ 

310 input sa>,s<2>,Aa> 

315 fl<l>=FKl>*C 

320 T=S<2>*SIN<Aa>> 



470 PRINT "SIDE".:I.:"="; 

475 PR I NT I NT < S < I > # 1 0OO+ . 5 > / 1 000 

480 PRINT "OPPOSITE ANGLE="; 

485 PRINT "DEGREES" 

490 NEXT I 



560 END 
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Analysis of Two Vectors vMo* iW.^,^> 



? 



This program calculates the angle between two given vectors, the angle between each vector and axis, and the 
magnitude of each vector. The vectors are given in three dimensional space. 

Example: 

Find the angle ( 9 ) between a diagonal of a cube and a diagonal of one of its faces. The cube measures 
4x4x4. 



(0.4,4) 



(0,4,0) 




(0,0,0) 



(4,0,0) 



(4,4,4) 



(4,0,4) 



ANAL VS IS OF TWO VECTORS 

VECTOR l: X,Y,Z? 6,4,4 
VECTOR 2- X,V,Z? 4,4,4 

VECTOR 1 

MAGN I TUBE •• 5 . 65685425 



ANGLE WITH X-AXIS 
ANGLE WITH V-AXIS 
ANGLE WITH Z-AXIS 



90.0000008 
45.0000004 
45.0000004 



VECTOR 2 

MAGNITUDE: 6.92828323 



ANGLE WITH X-AXIS 
ANGLE WITH V-AXIS 
ANGLE WITH Z-AXIS 



54.7356188 
54.7356188 
54.7356188 



ANGLE BETWEEN VECTORS: 35.26439 
MORE DATA a=VES,0=NO>? 



16 PRINT "URNALVSIS OF TWO VECTORS" 

28 PRINT 

30 DIM X<2>,V<2>,Z<2>,M<2> 

39 REM - STATMENTS 46 TO 70 REQUEST VECTOR COORDINATES 

40 PRINT "VECTOR 1 : X,V,Z"; 
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50 input xa>,va>,za> 

60 PRINT "VECTOR 2- X,V,Z"; 
70 INPUT X<2>,V<2>,Z<:2> 



S0 PRINT 

89 REM - LOOP TO ANALVZE VECTORS 

90 FOR 1=1 TO 2 

39 REM - CALCULATE MAGNITUDE, PRINT 
100 M< I >=SGR<X< I > ?2+V< I > 12+Z< I > t2> 

109 REM - IS VECTOR A POINT? IF VES, CANNOT COMPUTE AN ANGLE 

110 IF M<I>=0 THEN 220 
120 PRINT "VECTOR"; I 

130 PRINT "MAGNITUDE: ";M( I > 

139 REM - CONVERSION FACTOR FOR RADIANS TO DEGREES 

24@ S=57. 29578 

149 REM -"CALCULATE ANGLE BETWEEN VECTOR AND X-AXIS, PRINT 

150 ,T=Xa>/M<I> 

160 PRINT "ANGLE WITH X-AXIS-"; 

162 IF J=0 THEN 167 

165 PRINT ATN<<SQRa-Jt2>>/J>*S 

166 GOTO 170 
\p,-? ppiNT '■isfcir • , '~* 

169 REM - CALCULATE ANGLE BETWEEN VECTOR AND V-AXIS, PRINT 

170 ,T=Ya>/M<I> 

ISO PRINT "ANGLE WITH V-AXIS •• "; 
182 IF J=0 THEN 187 

185 PRINT ATN<<SQRa-J?2>.VJ>#S 

186 GOTO 198 

187 PRINT S*ir/2 

189 REM - CALCULATE ANGLE BETWEEN VECTOR AND Z-AXIS, PRINT 

190 J=Za.VM<I> 

200 PRINT "ANGLE WITH Z-AXIS:"; 
202 IF J=0 THEN 207 

285 PRINT ATN<<SQRa-J-T2>.VJ>#S 

206 GOTO 21 fl 

207 PRINT S*ff/2 
210 PRINT 

220 NEXT I 
230 J=© 

239 REM - IF EITHER VECTOR A POINT, CANNOT COMPUTE ANGLE 

240 IF MO>=0 THEN 310 
25© IF M<2>=0 THEN 31© 

259 REM - CALCULATE ANGLE BETWEEN VECTORS 

260 J=<Xa>*X<2>+Va>#V<2>+Za>*Z<2>VM<l>/M<2> 

269 REM - ARE VECTORS PERPENDICULAR? 

270 IF JsOO THEN 30© 
280 J=90 

290 GOTO 310 

299 REM - CALCULATE ANGLE IN DEGREES, PRINT 

300 ,T= ATN < SQR a - J 12 > /J > *S 

310 PRINT "ANGLE BETWEEN VECTORS-"; J 
320 PRINT 

329 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

330 PRINT "MORE DATA <1=VES,0=NO>"; 
340 INPUT Z 

350 IF Z=l THEN 48 
360 END 
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Operations on Two Vectors ^ ^ * 



This program performs four operations on two vectors given in three space. The operations performed are: 

1) Addition 

2) Subtraction 

3) Scalar (dot) product 

4) Cross product 

Example: 

Vectors are drawn from the origin to two points A(5,-1,2) and B(1,4,9). Add, subtract, and find the dot and 
cross product of these- vectors. 

OPERATIONS ON TWO VECTORS 

VECTOR fl: X,V,Z? 5,-1,2 
VECTOR B- X,V,Z? 1,4,9 

fl+B= 6,3, 11 
fi-B= 4 ,-5 ,-7 
fl.B- 19 
A*B=-17 ;-43 , 21 

MORE DATA? a=VES,8=N0>? 

m — i - 

10 PRINT "^OPERATIONS ON TWO VECTORS" 

28 PRINT 

30 PRINT "VECTOR A= X,V,Z"; 

40 INPUT X1,Y1,Z1 

50 PRINT "VECTOR B- X,V,Z"; 

60 INPUT X2,Y2,Z2 

70 PRINT 

79 REM - PERFORM VECTOR ADDITION, PRINT RESULTING VECTOR COORDINATES 

80 PRINT " A+B= "; X 1 +X2 ;","; VI +V2; 
85 PRINT " ";" ? l+" ? 2 

89 REM - PERFORM^ VECTOR SUBTRACTION, PRINT RESULTING VECTOR COORDINATES 

90 PRINT "A-B=",X1-X2;",".:V1-V2; 
95 PRINT ",";Z1-Z2 

99 REM - CALCULATE DOT PRODUCT, PRINT 

100 PRINT "A.B=";X1*X2+V1*V2+Z1*Z2 

109 REM - CALCULATE CROSS PRODUCT, PRINT RESULTING VECTOR COORDINATES 

1 1 PR INT " A*B= " ; V 1 *Z2-Z 1 * V2 ; " ; " .: 

115 PR I NT Z 1 *X2-X 1 *Z2 ; ' V ; X 1 * V2-V 1 *X2 

120 PRINT 

129 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

ISO PRINT "MORE DATA? <1=VES,0=NO>"; 

140 INPUT Z 

ISO IF Z=l THEN 29 

160 END 
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Angle Conversion: Radians to Degrees 



This program converts an angle given in radians to degrees, minutes and seconds. 

Example: 

How many degrees, minutes and seconds are there in an angle of 2.5 radians? In 118 radians? 

ANGLE CONVERSION" RADIANS TO DEGREES 

CENTER TO END THIS PROGRAM) 
ANGLE IN RADIANS? 2.5 

DEGREES = 143 
MINUTES = 14 
SECONDS = 22.62 

ANGLE IN RADIANS? 118 

DEGREES = 280 
MINUTES = 54 
SECONDS =7.15 

ANGLE IN RADIANS? 



10 PR I NT "DANGLE CONVERSION: RADIANS TO DEGREES 

20 PRINT 

30 PRINT "CENTER & TO END THIS PROGRAM)" 

50 PRINT "ANGLE IN RADIANS"; 

60 INPUT R 

63 REM - TEST FOR END OF PROGRAM 

70 IF R=0 THEN 170 

79 REM - CONVERT RADIANS TO SECONDS 

80 A=3600*180*R/tr 

89 REM - CALCULATE NUMBER OF WHOLE DEGREES 

90 D= I NT (A/3600) 

99 REM - CALCULATE NUMBER OF FULL CIRCLES 

100 Dl= I NT CD/360) 
105 PRINT 

109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES. PRINT 

110 PRINT " DEGREES =";D-360*D1 

119 REM - CALCULATE MINUTES, PRINT 

120 PRINT " MINUTES ="; 

1 25 PR I NT I NT C C A-D*360O ) /60 ) 

129 REM - CALCULATE SECONDS, ROUND OFF, PRINT 

1 30 S= A-D*3600- C I NT C C A-D*36O0 ) /60 ) ) *6fi 
140 PRINT " SECONDS =" ; 

1 45 PR I NT I NT C 1 0@#S+ . 5 > / 1 00 
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150 PRINT 

159 REM - RESTART PROGRAM 

168 GOTO 50 

170 END 



OPTION 

You may prefer your answer in degrees and decimals of degrees rather than degrees, minutes and seconds. 
The program changes necessary are listed following the example below. 

Example: 

How many degrees are there in an angle of 2.5 radians? 

ANGLE CONVERSION: RADIANS TO DEGREES 

< ENTER O TO END THIS PROGRAM} 
ANGLE IN RADIANS? 2.5 

DEGREES = 143 

ANGLE IN RADIANS? @ 

1 REM - OPTION 110 

10 PR I NT" .TANGLE CONVERSION: RADIANS TO DEGREES 



109 REM - CALCULATE DEGREES OF ANGLE WITHIN 360 DEGREES, PRINT 

110 PRINT " DEGREES =".: 

111 PR I NT I NT < ( D-360*D 1 > * 1 00+ . 5 > / 1 60 
150 PRINT 



170 END 



63 



Angle Conversion: Degrees to Radians 



This program converts an angle given in degrees, minutes and seconds to radians. 

Examples: 

An angle measures 30 degrees, 5 minutes and 3 seconds. What would be the measure of this angle in ra- 
dians? 

What would be the radian measurement of two angles measuring 278°, 19', 54" and 721°, 0', 0"? 

ANGLE CONVERSION: DEGREES TO RADIANS 

<T0 END, ENTER 0,6, GO 

ANGLE IN DEGREES, MINUTES, SECONDS' 

? 30,5,3 

RADIANS = .525067685 

ANGLE IN DEGREES, MINUTES, SECONDS" 

RAD I ANS" =" 4 . 8573033 

ANGLE IN DEGREES, MINUTES, SECONDS : 

RAD I ANS ' = .017451 493 1 

ANGLE IN DEGREES, MINUTES, SECONDS: 

? 0,0,0 

10 PRINT "nfiNGLE CONVERSION: DEGREES TO RADIANS 

20 PRINT 

30 PRINT "CTO END, ENTER 0,0,0>" 

40 PRINT "ANGLE IN DEGREES, ".: 

45 PRINT "MINUTES, SECONDS:" 

50 INPUT D,M,S 

59 REM - TEST FOR END OF PROGRAM 

60 IF DO0 THEN 188 
70 IF MO0 THEN 100 
80 IF SO© THEN 10© 
90 GOTO 150 

93 REM - CONVERT DEGREES, MINUTES, SECONDS TO DEGREES 
1 OO A=D+M/60+S/3600 

109 REM - CALCULATE NUMBER OF COMPLETE CIRCLES 

110 R=INT<A/360> 

119 REM - CALCULATE ANGLE WITHIN 360 DEGEES, PRINT 

120 PRINT "RADIANS ="; 

125 PRINT A*. 01 745329-R*6. 2831853 

130 PRINT 

139 REM - RESTART PROGRAM 

148 GOTO 40 

150 END 
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OPTION 

It may be more convenient for you to enter the angle in degrees and fractions of degrees rather than 
degrees, minutes and seconds. The program changes necessary are listed following the example below. 

Example: 

How many radians are in an angle measuring 33.08°? 90°? 

ANGLE CONVERSION: DEGREES TO RADIANS 

•:Tfi END, ENTER 0,6,0) 
■ANGLE IN DEGREES^? 33.88 
RADIANS = .577354833 

ANGLE IN DEGREES:? 99 
RADIANS = 1.5707961 

ANGLE IN DEGREES-? 6 



<[ pen - riRTION 36-60 

10 'print "[tingle conversion: degrees to radians 

.-,£i r*ip t tjT 

%& print "'-TO END, ENTER 0,6,0)" 
40 PRINT "ANGLE IN DEGREES, "; 

50 INPUT A 

59 pFjvj _ JEST FOR END OF PROGRAM 

60 IF A=0 THEN 150 



109 REM - CALCULATE NUMBER OF COMPLETE CIRCLES 



156 END 
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Coordinate Conversion 



This program converts the coordinates of a point given in Cartesian coordinates to polar coordinates, and 
vice versa. 

The formulas for the conversions are: 

r = v x 2 + y 2 

A = arctangent ( y/x ) 

x — r • cosine ( A ) 
y = r • sine ( A ) 

where: x = abscissa) _ 

y = ordinate/ Cartesian coordinates 

r = magnitude of ray \ 

A - angle (in degrees)/ Polar coordinates 

Examples: 

Find Cartesian coordinates of the point (2,30.5°) given in polar coordinates. 

If a point is at (7,18) in the Cartesian system, what are its coordinates in the polar system? 

A point is located at (0,-46.8). What is its location in polar coordinates? 

COORDINATE CONVERSION 

< l=CflRTESIflN TO POLAR) 
<>l=P0L.fiR TO CARTESIAN) 

< 8=END PROGRAM) 

WHICH DIRECTION? -1 

R,A? 2.. 38. 5 

X = 1.72 , V = 1.02 

WHICH DIRECTION? 1 

X..V? 7,18 

R = 13.31 , A = 68.75 

WHICH DIRECTION? 1 

X/V? 0,-46.8 

R = 46.8 , A = 270 

WHICH DIRECTION? 
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16 PRINT "XOORDINATE CONVERSION" 

26 PRINT 

3fl PRINT " < 1=CRRTESIRN TO POLAR)" 

40 PRINT " <-l=POLAR TO CARTESIAN)" 

50 PRINT " < 0=END PROGRAM)" 

55 PRINT 

60 PRINT "WHICH D I RECT I ON " ; 

70 INPUT Ii 

79 REM - END PROGRAM? 

SO IF D=0 THEN 380 

89 REM - DIRECT PROGRAM TO PERFORM PROPER CONVERSION 

90 IF D=-l THEN 320 

9ft REM - CONVERT FROM CARTESIAN COORDINATES TO POLAR COORDINATES 
qc, REM _ ENTER CARTESIAN COORDINATES (. ABSCISSA, ORDINATE) 
100 PRINT "K,V".; 
110 INPUT X,V 

119 REM - POINT ON V-AXIS? 

120 IF X=0 THEN 170 

129 REM - POINT ON X-AXIS? 

130 IF V=0 THEN 260 

139 pEH _ COMPUTE POLAR COORDINATES, ROUND OFF, PRINT 

1 40 PR I NT " R = " ; I NT < SGN < X ) #SQR < X 12+ V f 2 ) * 1 00+ . 5 ) / 1 OO ; " , " .: 
150 PRINT " A =";INT<ATN<V/X)*180/it*100+.5)/100 

16P1 GOTO 55 

169 REM - POINT IS ON V-AXIS; AT ORIGIN? 

170 IF V=0 THEN 240 

is© print "R =";absCt').;",".; 

Ift9 REM - IS POINT ABOVE OR BELOW ORIGIN? 

190 IF V<0 THEN 220 

200 PRINT " A = 90" 

210 GOTO 55 

22© PRINT " A = 270" 

230 GOTO 55 

239 REM - POINT IS AT ORIGIN 

240 PRINT "R = 0, A = 0" 
250 GOTO 55 

259 REM - POINT IS ON X-AXIS 

'60 PR I NT " R = " ; ABS ( X ) ; " , " ; 

69 REM - IS POINT TO LEFT OR RIGHT OF ORIGIN? 
270 IF X<0 THEN 300 
280 PRINT " A = O" 
290 GOTO 55 
300 PRINT " A = ISO" 
310 GOTO 55 
313 REM - CfiNVERT FROM POLAR COORDINATES TO CARTESIAN COORDINATES 

319 REM - ENTER POLAR COORDINATES (MAGNITUDE OF RAV, ANGLE) 

320 PRINT "R,A"; 
330 INPUT R,A 

339 REM - CONVERT FROM DEGREES TO RADIANS 

340 M= < A- 1 NT < A/360 ) *360 ) *ff/ 1 80 

349 REM - CALCULATE CARTESIAN COORDINATES, ROUND OFF, PRINT 

350 PRINT "X =".: 

355 PR I NT I NT < R#COS < M ) * 1 00+ . 5 ) / 1 00 ; 

360 PRINT ", V ="; 

365 PR I NT I NT < R*S I N < M ) * 1 00+ . 5 ) / 1 00 

369 REM - RESTART PROGRAM 

370 GOTO 55 
380 END 
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Coordinate Plot 



This program plots points on a set of coordinate axes. You must provide the x - and y -coordinates of all 
points to be plotted, the endpoints of the x - and y -axes, and the increment between points on each axis. 

The graph is unconventional in that its x -axis runs vertically while its y -axis runs horizontally. In addition, 
the axes do not necessarily intersect at zero. A reminder as to where the axes intersect is printed at the top of 
each graph. 

The limit on the number of points plotted may be increased or decreased by altering statement 30 in the 
following manner: 

30 DIM X(/V+/),Y(/V+ 1) 
where N — the maximum number of points you wish to plot. 

The length of the y-axis is limited by the width of the output device. This program tests for a length not to exceed 
the width of the PET screen, 40 spaces. The test at statement 90 may be altered to accommodate the 80-column 
CBM screen. If using a CBM with an 80-column screen you might enter: 

90 IF B8<= 78 THEN ISO 

Example: 

The heights of twelve men and their sons are recorded in the table below. Plot the data points. 

father 
son 
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70 


66 


68 


67 


69 


71 


68 


66 


68 


65 


69 


66 


68 


65 


71 


67 


68 
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height in inches 



COORDINATE PLOT 



X-AXIS" LOWER ENDPQINT, 

UPPER ENBPOINT, INCREMENT? 22,33, .5 

V-flXIS: LEFT ENBPOINT, 

RIGHT ENDPOINT, INCREMENT? 22, 33,. 5 

NUMBER OF POINTS? 12 



COORDINATES OF POINT 


1 ? 25,28 


POINT 


2 ? 23,26 


POINT 


3 ? 2?, 28 


POINT 


4 ? 24,25 


POINT 


5 ? 28,29 


POINT 


6 ? 22,26 


POINT 


7 ? 38,28 


POINT 


8 ? 26,25 


POINT 


9 ? 23,31 


POINT 


1@ ? 27,2? 


POINT 


11 ? 29,23 


POINT 


12 ? 31,30 
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INTERSECTION OF AXES AT ( 22 , 22 ) 

* 

* + 
* 

* + 

* + 
* 

* + 

* + + 

# 

$ + + 

* + 
* 

* + 
* 

* + 
* 

* 
# 
* 
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10 PRINT "XOGRDINATE PLOT" 

20 PRINT 

2ft REM - DIMENSION OF XO AND V<> SHOULD BE LIMITED TO <N+1>; 

?9 REM - WHERE N=THE NUMBER OF POINTS BEING PLOTTED, MAXIMUM LIMIT 99 

38 DIM XU00>,Va00> 

39 REM - INPUT INFORMATION TO SET UP AXES 

40 PRINT "X-AXIS^ LOWER ENDPOINT, " 
45 PRINT "UPPER ENDPOINT, INCREMENT".; 
50 INPUT A1,A2,A3 

60 PRINT "V-AXIS-- LEFT ENDPOINT," 

65 PRINT "RIGHT ENDPOINT, INCREMENT"; 

70 INPUT B1,B2,B3 

88 R |fj -^y-RXIS^TOO LONG FOR OUTPUT DEVICE? IF VES, CHANGE ENDPOINTS 

89 REM - OR INCREASE INCREMENT 

90 IF B2<=40 THEN 12© 

100 PRINT "V-RANGE TOO LARGE" 
110 GOTO 60 

120 PRINT "NUMBER OF POINTS"; 
130 INPUT N 

139 REM - NO POINTS TO PLOT? END PROGRAM 

140 IF N=0 THEN 1070 

149 REM - TOO MANY POINTS? IF VES, REENTER NUMBER OF POINTS 

150 IF N<=99 THEN 180 

160 PRINT "TOO MANV POINTS" 

170 GOTO 120 

179 REM - LOOP TO INPUT X,V COORDINATES FOR EACH POINT 

ISO FOR 1=1 TO N 

190 IF I>1 THEN 220 
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209 PRINT "COORDINATES OF POINT »';I; 

210 GOTO 230 

220 PRINT " POINT ";I; 

230 INPUT X<I>, V<I> 

239 REM - ROUND OFF EACH X,V TO NEAREST INCREMENT ON AXIS 

240 X < I > = INK < X < I > - A 1 > / A3+ . 5 > 
250 V < I > = I NT < < V (. I > -B 1 > .••'B3+ . 5 > 
260 NEXT I 

269 REM - CALCULATE ADDITIONAL X AND V COORDINATE 

270 V < N+ 1 ) = I NT < B2+ . 5 > + 1 

280 X < N+ 1 > = I NT < < A2- A 1 > ,-'A3+ . 5 > + 1 
290 PRINT 

299 REM - NOTE WHERE AXES CROSS 

300 PRINT "INTERSECTION OF AXES AT <:"; 

301 PRINT Al;",".:Bl;">" 
310 PRINT 

319 REM - SORT COORDINATES; REORDER X(l> TO X<N> SMALLEST TH LARfiEST 

320 FOR J=l TO N 
330 FOR 1 = 1 TO N-J 

340 A=xa> 
35© B=V<I> 
360 C=X(I+1> 

370 D=va+i> 

380 IF A<C THEN 430 

390 X<I)=C 

400 V<I>=D 

410 X<I+1>=A 

420 V(I+1)=B 

430 NEXT I 

440 NEXT J 

449 REM - NEXT POINT TO BE PLOTTED STORED IN T 

450 T=l 

459 REM - SKIP POINTS OUT OF X-POSITIVE RANGE 

460 FOR P=0 TO N-l 

470 IF XCP+1»=0 THEN Q=p:R=N 
480 NEXT P 
485 P=Q 

489 REM - LOOP TO CALL UP EACH X- INCREMENT FOR LINES OF PRINT 

490 FOR 1=0 TO INT<<A2-Al>/A3+.5> 
500 T=T+P 

509 REM - COUNT NUMBER OF POINTS TO BE PLOTTED ON EACH LINE IN P 

510 P=0 

519 REM - ALL POINTS PLOTTED? 

520 IF T>N THEN 54© 
529 REM - X- VALUE ON X-LINE? IF YES, TEST FOR V 



m &iviikm t &. 



IF YES, Y-AXIS MUST BE PLOTTED 
540 IF 1=0 THEN 570 

549 REM - PLOT X-AXIS 

550 PRINT "*".; 
560 GOTO 1040 
570 S=N+1 

580 GOTO 920 
590 FOR L=T TO N 

599 REM - NEXT POINT PLOTTED ON SAME LINE 

600 if xax=xa> THEN P=P+1 ' 
620 NEXT L 
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629 REM - PLOT ONE POINT 

638 IF P=l THEN 736 _ _, Tll ^ Tr .^ 

638 REM - LOOP TO SORT Y-COORDINflTES WITH EQUAL X-CUORDINATEb.: 

639 REM - REORDER SMALLEST TO LARGEST 
648 FOR J=l TO P 

650 FOR L=l TO P-J 

668 D=V<T+L-1> 

670 B=V<T+L> 

680 IFB<=B THEN 710 

690 Y<T+L-1>=B 

700 V(T+L)=D 

710 NEXT L 

720 NEXT J 

730 FOR L=0 TO P-l 

740 Z=V(T+L> 

749 REM - TE sT FOR OUT-OF RANGE V-COORDINflTE 

750 IF 2>=0 THEN 770 
760 NEXT L 

?f& REM - POINT TO BE PLOTTED ON X-AXIS? 
770 IF 1=0 THEN 916 

77<* REM - POINT TO BE PLOTTED ON V-AXIS? 
780 IF Z=0 THEN 800 

789 REM - PLOT X-AXIS 

790 PRINT"*"; 

800 IF L=P-1 THEN 870 

810 FOR J=L TO P-l 

ftl q REM _ jest FOR OUT-OF RANGE V-COORDINATE 

820 IF Z>B2 THEN 1040 

829 REM - BYPASS DUPLICATE COORDINATES 

830 IF Y<T+,T>=Z THEN 860 

839 REM - PLOT POINT 

840 PRINT TABCZ >.:" + "; 
850 Z=Y<T+J> 

860 NEXT J 

869 REM - TEST FOR OUT-OF RANGE Y-COORDINATE 

870 IF Z<0 THEN 1040 
880 IF Z>B2 THEN 1040 

889 REM - PLOT POINT 

890 PRINT TAB<Z >.:"+".: 
900 GOTO 1040 

910 S=T+L 

919 REM - LOOP TO ESTABLISH PRINT FOR FIRST LINE 

920 FOR J=0 TO B2 

929 REM - POINT TO BE PLOTTED? 

930 IF Y<S>OJ THEN 1010 

939 REM - PLOT POINT 

940 PRINT"+"; 

949 REM - BYPASS DUPLICATE COORDINATES 

950 FOR K=S TO T+P-l 

96Q IF Y<fO=Y<S> THEN 990 

970 S=K 

980 GOTO 1020 

99Q NEXT K 

1000 GOTO 1020 

1009 REM - PLOT Y-AXIS 

1010 PRINT"*".: 
1020 NEXT J 
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1929 REM - LABEL Y-AXIS 

1930 PR I NT "V"; 

1039 REM - ADVANCE OUTPUT DEVICE TO NEXT LINE 

1040 PRINT 
1050 NEXT I 

1059 REM - LABEL X-AXIS 

1060 PR I NT "X" 
1070 END 
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Plot of Polar Equation 



This program plots a given function in polar coordinates. There are up to 90 points plotted, one every four 
degrees. (Some points may overlap.) 

The graph is conventional in that the x-axis runs horizontally, the v-axis runs vertically, and they intersect 
at zero. You need only specify the absolute value of the endpoints. 

The increment between each point on the x- and y-axes is adjusted so that a value of one on either axis is 
equidistant from zero. This allows the function to be plotted with minimal distortion. An adjustment of each increment 
is necessary because of different spacing horizontally and vertically on the PET screen. 

It is necessary for you to enter the function to be plotted before you run the program. The function must be 
entered as a function of d. fid) will be entered and set equal to F at line 130. For example, the function 
f(d) =2«(1-cos(c/))wili be entered as follows: 

130 F=E*(l-COS<D>> 
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Example: 

Plot the equation f{d)=2 '(1-cos( d )). 



138 F=2*a-C0SCD)> 
RUN 



PLOT OF POLAR EQUATION 

RESOLUTE VALUE OF ENDPOINTS? 4 

INCREMENT OF X-AXIS = .2857142R6 
INCREMENT OF V-AXIS = .333333333 

*** PLEASE WAIT A FEW MINUTES 
FOR THE GRAPH TO APPEAR **# 



+ + + + | 

+ + + + + | 

+ + + 

+ i + 

+ i + 

+ I + 

+ ! + 

+ • | + + 

+ — — __ + _ + 

+ I + + 

+ i + 

+ I + 

+ ! + 

+ I + 

+ + + 

+ + + + + j 

+ + + + j 
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18 PRINT 'TFLOT OF POLAR EQUATION" 

20 PRINT 

2ft REM - COORDINATE ARRAVS SET FOR 38 POINTS; nrf .. rf . M 

29 REM - ONE EXTRA ^-COORDINATE IS CALCULATED IN PROURAM 

2fi DIM >=:■:: 9 i>,VO0> 

39 REM - NUMBER OF POINTS TO BE CALCULATED 

4R h'=98 

49 REM - RESOLUTE VRLVUE OF ALL ENDPOINTS ARE EQUAL 

50 PRINT "ABSOLUTE VALUE OF ENDPOINTS"; 
68 INPUT 2 



78 PRINT 
75 Xl = 14 

U 1 — 1 '"' 



4§ R^ 1 !: nflLCHLflTE INCREMENTS OF AXES ACCORDING TO CHARACTERS PER AXIS 

P.0 PRINT "INCREMENT OF X-AXIS =";Z/X1 

98 PRINT "INCREMENT OF V-AXIS =";Z/V1 

188 PRINT 

1R4 PRINT "*** PLEASE WAIT A "; 

1SW PRINT "FEW MINUTES" 

186 PRINT "FOR THE GRAPH TO APPEAR***" 

11 Pi FOR 1 = 1 TO N 

119 REM - CONVERT DEGREES TO RADIANS 

128 D=. 86981317*1 

2 2 9 REM - ENTER FUCTION HERE ^-"FUNCTION" > 

13R print "ENTER FUCTION AT LINE 130!" 

i: - !ft p EM _ ffiLCULATE EACH CARTESIAN COORDINATE, 

2CJQ p E M - ROUND OFF TO NEAREST INCREMENT ON AXIS 

148 X<I> = INTa<F*C0S<D>/2+l>*Xl> + .5> 

158 V<I)=INT<<<-F*SIN<D>X2+l>*Vl>+.5> 

169 REM'- SORT COORDINATES; REORDER V(i) TO V<N> SMALLEST TO LARGEST 

178 FOR J=l TO N 

188 FOR 1=1 TO N-J 

198 R=X<I> 

2fi@ B=V<I> 

218 IF B<=Va + l> THEN 268 

228 xa>=xa+i> 

238 V(!)=V(I+i) 
248 X<I + i;:'=A 
258 V<I+1>=B 
268 NEXT I 

278 NEXT J 

279 REM - NEXT POINT TO BE PLOTTED STORED INT 

2P.8 T=l 

289 REM - SKIP POINTS OUT OF V-POSITIVE RANGE 

298 FOR P=8 TO N-l 

380 IF V<P+1»=0 THEN 320 

318 NEXT P 

319 REM - LOOP TO CALL UP EACH V- INCREMENT FOR LINES OF PRINT 
328 FOR 1=8 TO VI #2 

33@ j=T+P 

339 REM - NUMBER OF POINTS TO BE PLOTTED ON EACH LINE STORED IN P 

34A p=e 

349 REM - ALL POINTS PLOTTED? 

350 IF T>N THEN 370 

Sf=i9 REM - V- VALUE ON V-LINE? 
360 IF V<T>=I THEN 420 
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363 REM - PRINT X-AXIS 

378 IF I=V1 THEN 468 

379 REM - PRINT V-fiXIS 
388 PR I NT TAB < X 1 ) .; " I " .; 
398 GOTO 868 

488 S=N+1 

418 GOTO 748 

428 FOR L=T TO N 

429 REM - NEXT POINT TO BE PLOTTED ON SAME LINE? 
438 IF V<L»V<T> THEN 458 

44fi P=p+1 

458 NEXT L 

468 IF P=l THEN 568 

468 REM - LOOP TO SORT X-CGORDINATES WITH EQUAL V-COOPDINATE*; 

469 REM - REORDER SMALLEST TO LARGEST 

478 FOR J=l TO P 

488 FOR L=l TO P-J 

498 C=X(T+L-1> 

588 fl=XCT+L> 

518 IF C<=A THEN 548 

528 X(T+L-1>=A 

530 xa+L>=c 

548 NEXT L 

558 NEXT J 

559 REM - PRINT X-AXIS? 
568 IF I=V1 THEN 738 
578 L=-l 

588 8=8 

598 FOR K=8 TO P-l 

599 REM - MORE THAN ONE POINT TO BE PLOTTED AT SAME POINT ON GRAPH? 
688 IF X(T+K>=L THEN 690 " ' 
610 L=X<T+FO 

619 REM - PLOT POINT TO THE LEFT OF V-AXIS? 
628 IF L=X1 THEN 668 
638 IF L<X1 THEN 678 

648 IF S=l THEN 678 

649 REM - PRINT V-AXIS 
658 PRINT TAECXl).:" I"; 
668 S=l 

6€,9 REM - POINT OUTSIDE OF POSITIVE X-RANGE? 

678 IF L>X1*2 THEN 868 

679 REM - PLOT POINT 
688 PR I NT TAB < L > J " + " .: 
698 NEXT K 

788 IF S=l THEN 868 

789 REM - PRINT V-AXIS 
718 PRINT TAB (XI >;"!".; 
728 GOTO Sfifi 

738 S=T 

739 REM - LOOP TO PRINT LINE OF X-AXIS 
748 FOR ,T=8 TO Xl*2 

758 IF X<S>OJ THEN 838 

759 REM - PLOT POINT ON X-AXIS 
768 PRINT "+".; 

778 FOR K=S TO T+P-l 

788 IF X<fO=X<S> THEN 818 

798 S=K 

76 



80@ GOTO 840 
810 NEXT K 
820 GOTO 840 

829 REM - PRINT X-flXIS 

830 PRINT "-".; 
840 NEXT J 

849 REM - LABEL X-flXIS 

850 PRINT "X"; 
860 PRINT 

870 NEXT I 

879 REM - LABEL V-AXIS 

880 PRINT TAB<X1>.:"V" 
890 END 
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Plot of Functions 



This program calculates and plots up to nine functions. All functions must be functions of x , and all will be 
plotted on the same set of axes. 

To set up the axes you must input the endpoints of the x - and y -axes. You must also state the increment 
by which the points on each axis are to be increased. 

The graph is unconventional in that its x -axis runs vertically while its y -axis runs horizontally. To read the 
graph you must either turn your output 90° counterclockwise or mentally adjust to the change in convention. 

The graph is also unconventional in that its axes do not necessarily cross at zero. A reminder as to where the 
axes cross is printed at the top of each graph. 

You must enter the functions to be plotted as program statements prior to running the program. Statement 
numbers 221 to 229 are reserved for this purpose. Functions must be entered in the number sequence Y(1), 
Y(2),. . . Y(9). For example, if you wish to plot the functions f ( x ) = 2x +1 and f( x ) = V*~. you must type: 

2E1 Y(i)=S*X+l 
SEE Y(E)=SQR(X) 

The length of the y-axis is limited by the width of your output device. This program tests for a length not to exceed 
the width of the PET screen, 40 spaces. The test at statement 140 may be altered to accommodate the 80-column CBM 
screen. For example, an 80-column CBM screen will accommodate a graph 78 spaces wide by changing statement 140 
to: 

140 IF YS<=78 THEN 170 

Example: 

Rot the equations f(x)= cos( x ) and f ( x ) = sin( x ). 

221 Y<i}=C0S<X> 

222 Y<2>=SIN<X> 
RUN 

PLOT OF FUNCTIONS 

NUMBER OF FUNCTIONS? 2 

X-flXIS: LOWER ENDPO I NT, 

UPPER ENDPO I NT, INCREMENT? -5, 5,, 25 

V-flXIS: LEFT ENDPO I NT, 

RIGHT ENDPO I NT, INCREMENT? -2, 2,. 25 
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X AXIS CROSSES V-AXIS AT V=-2 
V AXIS CROSSES X-AXIS AT X--5 



I I II I I I I 1 I I 



2 111 



V 



X 



1 2 






1 2 



2 



1 2 
1 



79 



19 PRINT "."PLOT OF FUNCTIONS" 
29 PRINT 

29 REM - NUMBER OF FUNCTIONS WHICH CAN BE PLOTTED IS LIMITED Ti"i 9 

30 DIM V<9>,A$ai> 
40 FOR 1=1 TO 11 

43 REM - GET VALUES FOR fi$-fiRRfiV FROM DATA TABLE AT STATEMENTS 470-471 
50 READ fl*<I> 
60 NEXT I 

69 REM - STATEMENTS 79 TO 120 REQUEST USER INPUT 

70 PRINT "NUMBER OF FUNCTIONS"; 
80 INPUT N 

90 PRINT "X-AXIS: LOWER ENBPOINT," 
95 PRINT "UPPER ENBPOINT, INCREMENT"; 
100 INPUT X1,X2,X3 
110 PRINT "V-AXIS" LEFT ENBPOINT," 
115 PRINT "RIGHT ENBPOINT, INCREMENT"; 
120 INPUT V1,V2,V3 

129 REM - CALCULATE NUMBER OF SPACES ON V-AXIS 

130 Y2=<V2-Y1.VV3 

138 REM - TEST FOR A V-AXIS TOO LONG FOR OUTPUT DEVI HE. 

139 REM - IF VES; THEN LESSEN RANGE OR INCREASE INCREMENT 

140 IF V2<=36 THEN 170 

150 PRINT "V-RANGE TOO LARGE" 
160 GOTO 110 
170 PRINT 
ISO PRINT 

189 REM - MAKE NOTE OF WHERE AXES CROSS 

190 PRINT "X-AXIS CROSSES V-AXIS " ; 
195 PRINT "AT V=";V1 

200 PRINT "V AXIS CROSSES X-AXIS 
210 PRINT "AT X= "; XI : PRINT 

219 REM - SET UP LOOP TO READ VALUE AT EACH X- INCREMENT 

220 FOR X=X1 TO X2 STEP X3 

221 REM - FUNCTIONS VU> TO V<9) SHOULD BE ENTEREB AT LINES 221 W 229 
230 FOR 1=1 TO N 

239 REM - ESTABLISH THE ROUNDED VALUE OF V FOR EACH X- INCREMENT VALUE 

240 V<I>= INT<<V(I>-Vl>/V3+.5> 
250 NEXT I 

259 REM - LOOP TO READ VALUE OF EACH V- INCREMENT 

260 FOR 1=0 TO V2 

269 REM - S COUNTS THE NUMBER OF VALUES AT EACH V- INCREMENT FUR EAf:H X 

270 S=0 

280 FOR J=l TO N 

S!n ?I M u" t? L -?I SuES 1 ?!,™ THIS SP0T? IF VES ' ST0RE FUNCTION NUMBER IN T 
290 IF V'..J.^OI THEN 320 

300 S=S+1 

310 T=J 

320 NEXT J 

327 REM - TEST FOR NUMBER OF POINTS TO PLOT ON EAHH sprm 

??2 REM ' IF PRINT " + " < F ™$ J LINE ONLY), IF 1 PR I NT "FUNCTION NUMBER, 

329 REM - IF 2 OR MORE PRINT "*" 

330 IF S>0 THEN 36© 

340 PRINT R*(SGN<I>+10>; 

350 GOTO 400 

360 IF S>1 THEN 390 

370 PRINT A$ <T>; 

380 GOTO 400 
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396 PRINT "*".: 

480 NEXT I 

4Pl q p EM _ LABEL AXES AT THE LAST SPACE OH EACH AXES 

410 IF X>X1 THEN 430 

420 PRINT "V"; 

429 REM - ADVANCE PRINTER TO NEXT LINE 

42fi PRINT 

439 REM - PRINT SPACE INSTEAD OF "+" AFTER FIRST LINE OF PRINT <Y-RXIS> 

440 fl*<ll>=" " 
450 NEXT X 
460 PRINT "X" 

47ft DATA " 1 " • " 2 " .. " 3 " .• " 4 " .• " 5 " .- " €> " .• " 7 " 
471 DATA "8", "9% "■","1" 
480 END 
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Linear Interpolation 



This program calculates the y -coordinates of points on a line given their x -coordinates. It is necessary to 
know coordinates of two points on the same line. 



The point is interpolated using the following formula: 

V-Vy + 



U 2 - * l) 

where: x „ y , = coordinates of first point on the line 

x 2- Y 2 = coordinates of second point on the line 

x — abscissa of point to be interpolated 

y = ordinate of the point on the line with x 



. Examples: 



A conversion table lists 60°F as 15.56°C and 90°F as 32.22°C. Calculate degrees Celsius of 73°F and 85.6°F. 
A new sales tax of 17.5% has been imposed on us. What will be the tax on a sofa which sells for $455.68? 

LINEAR INTERPOLATION 

K,V OF FIRST POINT? 68,15.56 
X,V OF SECOND POINT? 96,32.22 
INTERPOLATED = ? 73 



V = 



2.779 



MORE POINTS a=YES,0=NO>? 1 
INTERPOLATE -X = ? 35.6 

V— OQ "?"?"* 
— C.J m I I I 

MORE POINTS a=VES,0=NG)? 

NEW LINE a=YES,0=NO>? 1 

tf,V OF FIRST POINT? 0,0 
:*:,V OF SECOND POINT? 100,17.5 
INTERPOL ATE -X = ? 455.63 
V = 79.744 

MORE POINTS <1=VES,0=NO>? 

NEW LINE a=YES,0=NG>? 
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IS PRINT 'TL I NEAR INTERPOLATION" 

29 PRINT 

2*3 REM - ENTER X- AND V-COORD I NATES OF TWO POINTS ON THE LINE 

38 PRINT "X,V OF FIRST POINT"; 

48 INPUT XI, VI 

50 PRINT "X,V OF SECOND POINT"; 

60 INPUT X2,V2 

fS REM - ENTER X-COORDINATE OF POINT TO BE INTERPOLATED 

70 PRINT "INTERPOL ATE -X - "; 

80 INPUT X 

S3 REM - COMPUTE CORRESPONDING V-COORD I NATE 

30 V=Vi + (V2-Vi>/<X2-Xl>*'::X-Xl> 
33 REM - ROUND OFF, PRINT 

100 PRINT TAE<12:>;"V = "; 

1 1 PR INT I NT ( V* 1 O00+ . 5 > / 1 OOO 
110 PRINT 

120 PRINT "MORE POINTS <1=VES,0=NO>"; 

130 INPUT 2 

140 PRINT 

150 IF Z=l THEN 70 

153 REM - INTERPOLATE ON ANOTHER LINE? 

160 PRINT "NEW LINE <1=VES, 0=NO>"; 

176 INPUT Z 

ISO IF Z=l THEN 20 

130 END 
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Curvilinear Interpolation 



This program computes y -coordinates of points on a curve given their x -coordinates. You must input 
coordinates of known points on the curve, no two having the same abscissa. 

The computations are performed using the Lagrange method of interpolation. 

The number of known points on the curve which may be entered in the program is limited to 50. You may 
increase or decrease this limit by altering statement 30 according to the following scheme: 

30 DIM XiP) , Y<P) 

where P = the number of known points on a curve. 

Examples: 

Consider the curve y = x 3 - 3x + 3. You know that the points (-3,-15), (-2,1), (-1,5), (0,3), (1,1), (2,5), and 
(3,21) are on the curve. What is the value of y when x = -1.65 and 0.2? 

Given the following points from a sine curve, what is the sine of -2.47 and the sine of 1.5? 

(-5,. 958) (0,0) 

(-4,.757) (1,.841) 

(-3.-.141) (2,.909) 

(-2,-.909) (3,. 141) 

(-V.841) (4,-.757) 

(5,-.959) 

CURVILINEAR INTERPOLATION 
NUMBER OF KNOWN POINTS? 7 



X, 


V 


OF 


POINT 


1 ? 


-3,-15 


x.. 


V 


OF 


POINT 


o '? 


-2,1 


X, 


V 


OF 


POINT 


3 ? 


-1,5 


X, 


V 


OF 


POINT 


4 ? 


9,3 


X, 


V 


OF 


POINT 


5 ? 


1,1 


X, 


V 


OF 


POINT 


6 ? 




X, 


■V 


OF 


POINT 


7 ? 


3,21 


INTERPOLATE: 


X= ? -1.65 










V= 


3. 457875 


MC 


)R£ 


I POINTS HERE 


a=YES,@= 


INTERPOLATE •• 












v= 


2.498 



MORE POINTS HERE <1=VES,0=N0>? 1 
ANOTHER CURVE <1=VES,Q=N0>? 1 
NUMBER OF KNOWN POINTS? 11 
X,V OF POINT 1 ? -5,. 958 
X,V OF POINT 2 ? -4,. 757 
tf,V OF POINT 3 ? -3,-. 141 
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> 0, 





> !.• 


.841 


■t *■) 


.909 


? 3, 


.141 



X-V OF POINT 4 ? -2, -.909 

X.-V OF POINT 5 ? ~1,-.341 

X..V OF POINT 6 

X,V OF POINT ? 

X..V OF POINT 8 

X,V OF POINT 9 

X.V OF POINT 10 ? 4, -.757 

X,V OF POINT 11 ? 5, -.959 

INTERPOLATE: x= ? -2.47 

V= -.621839596 

MORE POINTS HERE <1=VES,0=NO>? 1 

INTERPOLATE- X= ? 1.5 

V= .9971633 

MORE POINTS HERE <1=VES,0=NO>? 
ANOTHER CURVE <1=VES,0=NO>? 



1@ PRINT "IXURVILINEAR INTERPOLATION" 

20 PRINT 

36 IHM K(50>,V<50> 

40 PRINT "NUMBER OF KNOWN POINTS"; 

58 INPUT P 

60 FOR 1=1 TO P 

70 PRINT "X.V OF POINT"; I.: 

80 INPUT X(I>,V<I> 

90 NEXT I 

100 PRINT 

110 PRINT "INTERPOLATE: X= "; 

120 INPUT A 

130 B=0 

140 FOR J=l TO P 

150 T=l 

160 FOR 1=1 TO P 

170 IF I=J THEN 190 

1 SO T=T* < A-X < I > > / < X ( J > -X a > > 

190 NEXT I 

200 B=B+T*V<J> 

210 NEXT J 

220 PRINT " V= ";B 

230 PRINT 

240 PRINT "MORE POINTS HERE?"; 

245 PRINT "<1=VES,0=NO>"; 

250 INPUT C 

260 IF C=l THEN 100 

270 PRINT "ANOTHER CURVE? a=VES,0=NO>"; 

280 INPUT C 

290 IF C=l THEN 48 

300 ENB 
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Integration: Simpson's Rule 



This program approximates the definite integral of a function. The integral is computed using Simpson's 
rule. 

The method the program takes is optional: you must supply either the function of the curve or values of the 
function at specified intervals. For both methods you must enter the limits of integration and the increment bet- 
ween points within the limits. 

If the function to be integrated is known, it must be entered before running the program. The function will 
be defined at line 50. For example, the function f(x) = x 3 will be entered as follows: 

50 DEFFNC<X)=Xt3 

Examples: 

Find the definite integral of the function f( x ) = x 3 between and 2 with increments of .2 and .1. 

What is the integral of a curve between -1 and 1 if the points known are as follows: 





(-1..54) 


(.25,.969) 




(-.75,.73) 


(.5,.878) 




(-.5,.878) 


(.75,-73) 




(-.25,.969) 


(1,-54) 




(0,1) 




50 HEFFNC<X>=XT3 






RUN 







INTEGRATION: SIMPSON'S RULE 

FORMULA •• < 1 =KN0WN , 0=UNKN0WN > ? 1 
THE LOWER, UPPER LIMITS? 8,2 
INCREMENT OF X? .2 
INTEGRAL IS 4 

RUN 



INTEGRATION-' SIMPSON'S RULE 

FORMULA : < 1 =KN0WN , 0=UNKNGWN > ? 1 
THE LOWER, UPPER LIMITS? 6,2 
INCREMENT OF X? .1 
INTEGRAL IS 4 

RUN 



INTEGRATION: SIMPSON'S RULE 

FORMULA •• < 1 =KN0WN , 0=UNKN0WN > ? Q 
THE LOWER, UPPER LIMITS? -1,1 
INCREMENT OF X? .25 
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FIRST, LAST VALUE OF F(X>? .54,. 54 
VALUE OF F<X) AT: 

INTERVAL 1 <!X=-.75 >? .73 
VALUE OF F<X> AT: 

INTERVAL 2 <X=-.5 >? .878 
VALUE OF F<X) AT-' 

INTERVAL 3 0<=-.25 >? .969 
VALUE OF FOO AT: 

INTERVAL 4 CX= >? 1 
VALUE OF FOO AT: 

INTERVAL 5 0<= 25 >? .969 
VALUE OF F<X> AT: 

INTERVAL 6 0<= .5 >? .878 
VALUE OF FOO AT" 

INTERVAL 7 <X= .75 >? .73 
INTEGRAL IS 1.682 



18 PRINT "^INTEGRATION: SIMPSON'S RULE" 
20 PRINT 

30 PR I NT " FORMULA : ( 1 =KNOWN , 0=UNKNQWN > " ; 
40 INPUT S 

49 REM - IF FUNCTION IS KNOWN ENTER AT LINE 50 <DEFFNCOO = " FUNCTION") 

50 DEFFNC<X>=X 

60 PRINT "THE LOWER, UPPER LIMITS"; 

70 INPUT A,B 

80 PRINT "INCREMENT OF X"; 

90 INPUT XI 

98 REM - INCREMENT MUST DIVIDE INTERVAL INTO EQUAL SUE INTERVALS; 

99 REM - IF NOT, CHANGE INCREMENT 

100 T=<E-AVXl:U=INKT>:IF TOU THEN 80 
110 IF S=l THEN 150 

119 REM - FORMULA NOT KNOWN; ENTER FUNCTION VALUE AT INTEGRATION LIMITS 

120 PRINT "FIRST, LAST VALUE OF FOO"; 
130 INPUT VI, V2 

140 GOTO 170 

149 REM - FORMULA KNOWN; CLACULATE FOO AT INTEGRATION LIMITS 

150 V1=FNC(A> 
160 V2=FNC<E> 
170 C=0 

ISO D=0 

189 REM - LOOP FOR EACH INTERVAL 

190 FOR 1=1 TO <B-flVXi-.5 
200 IF S=l THEN 240 

209 REM - ENTER KNOWN FUNCTION VALUE AT EACH INTERVAL 

210 PRINT "VALUE OF FOO AT: « 

2 1 1 PR I NT T AE < 1 6 > ; " I NTER V AL " ; I ; 

212 PRINT "<x=";A+i*xi;">"; 

220 INPUT V 

230 GOTO 250 

239 REM - CALCULATE FOO AT EACH SUE INTERVAL 

240 V=FNC<fl+I*Xi> 

249 REM - INTERVAL EVEN OR ODD? 

250 T2= I /2 : R= I NT < T2 > 

■jr^c; jp T-~'=p THEN ^""ifl 

259 REM - SUM ALL^ODD- INTERVAL FUNCTION VALUES 

260 C=C+V 
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270 


GOTO I 


290 






279 


REM - 


SUM ALL 


EVEN- 


INTERVAL 


280 


D=D+V 








290 


NEXT 


I 






299 


REM - 


COMPUTE 


INTEGRAL; PR IN 


300 


PRINT 


"INTEGRAL IS" 


t 


310 


PRINT 


X1/3*<V1+<C*4 


>+D*2+V2) 


320 


END 









FUNCTION VALUES 
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Integration: Trapezoidal Rule 



This program approximates the definite integral of a function. The integral is computed using the trapezoi- 
dal rule. You must provide the limits of integration and the number of intervals within the limits. 

The function to be integrated must be entered before running the program. The function of x will be defined 
at line 30. For example, the function f( x ) = x 3 will be entered as follows: 

30 DEFFNC(X)=Xt3 

Examples: 

Find the definite integral of the function f( x ) = x 3 between and 2 with 10 and 20 intervals. 

Find the definite integral of the function f { x ) = x " 2 between 1 and 2 and 2 and 3 using 10 subintervals. 

36 DEFFNC<X)=Xt3 
RUN 

INTEGRATION- TRAPEZOIDAL RULE 



< ENTER 8,8 TO END PROGRAM) 
INTEGRATION LIMITS ( LOWER, UPPER)? 0,2 
NUMBER OF INTERVALS? 10 
INTEGRAL = 4.04008001 

INTEGRATION LIMITS ( LOWER, UPPER)? 0,2 
NUMBER OF INTERVALS? 20 
INTEGRAL = 4.81000001 

INTEGRATION LIMITS (LOWER, UPPER)? 8,8 

38 DEFFNC<X>=1/Xt2 
RUN 



INTEGRATION: TRAPEZOIDAL RULE 

(ENTER 8,8 TO END PROGRAM) 
INTEGRATION LIMITS (LOWER, UPPER)? 1,2 
NUMBER OF INTERVALS? 18 
INTEGRAL - .581455127 

INTEGRATION LIMITS (LOWER, UPPER)? 2,3 
NUMBER OF INTERVALS? 18 
INTEGRAL = .177213009 

INTEGRATION LIMITS (LOWER, UPPER)? 0,8 
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16 print m :ji integration: trapezoidal rule- 

28 PRINT 

29 REM - ENTER FUNCTION <DEFFNCOO=" FUNCTION") 

30 PRINT "! ENTER FUNCTION RT LINE 30!!" 
40 PRINT H < ENTER 8,8 TO END PROGRftM)" 
50 PRINT "LOWER, UPPER LIMITS"; 

60 INPUT A,B 

69 REM - END PROGRAM? 

70 IF R=B THEN 190 

80 PRINT "NUMBER OF INTERVALS"; 
90 INPUT N 

100 1=0 

109 REM - D IS THE SIZE OF EACH INTERVAL 

110 B=<B-A.VN 

119 REM - ADD UP THE AREA OF EACH TRAPEZOID 
128 FOR J=A TO B+D STEP D 
130 I=I+FNC<J> 
140 NEXT J 

149 REM - COMPUTE INTEGRAL, PRINT 

1 50 I = <I - < FNC < A > +FNC < B > > /2 ) *D 
16© PRINT "INTEGRAL =";I 

170 PRINT 

179 REM - RESTART PROGRAM 

180 GOTO 50 
190 END 
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Integration: Gaussian Quadrature 



This program approximates the definite integral of a function. You must provide the limits of integration and 
the number of intervals within the limits. 

The interval of integration is divided into equal subintervals. The definite integral is computed over each su- 
binterval using Gauss' formula. The integrals of the subintervals are summed to give the definite integral of the 
full interval. 

You must enter the function to be integrated before running the program. The function of x will be defined 
at line 30. For example, the function f{ x ) = x 3 will be entered as follows: 

30 DEFFNC<X)=Xt3 

Examples: 

Find the definite integral of the function f( x ) = x 3 between and 2 with 10 and 20 subintervals. 

Find the definite integral of the function fix ) = x " 2 between 1 and 2 and 3 using 10 subintervals. 

30 DEFFNCO<>=Xt3 
RUN 

INTEGRATION: GAUSSIAN QUADRATURE 

LOWER, UPPER LIMITS? 8,2 
NUMBER OF INTERVALS? 18 
INTEGRAL = 4.00000064 

CHANGE DATA AND RECOMPUTE? 
< 0=NO , 1 =L I M I TS , 2= I NTERV ALS > ? 2 
NUMBER OF INTERVALS? 20 
INTEGRAL = 4.00000004 

CHANGE DATA AND RECOMPUTE? 

< 0=NO , 1 -L I M I TS , 2= I NTERVALS > ? 



30 DEFFNC(X>=1/Xt2 
RUN 

INTEGRATION: GAUSSIAN QUADRATURE 

LOWER, UPPER LIMITS? 1,2 
NUMBER OF INTERVALS? 18 
INTEGRAL = .500000002 

CHANGE DATA AND RECOMPUTE? 
< 0=NO , 1 =L I M I TS , 2= I NTERVALS > ? 1 
LOWER, UPPER LIMITS? 2,3 
INTEGRAL = .166666668 
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CHANGE DATA AND RECOMPUTE? 
< 0=NQ , 1 =L I M I TS , 2= I NTERVALS > ' 







10 

20 
29 
30 
39 
40 
45 
50 
55 
60 
65 
70 
80 
90 

100 
110 
120 

130 
140 
149 
150 
160 
169 
170 
180 
190 

200 

218 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 
320 



"^INTEGRATION: GAUSSIAN QUADRATURE" 



ENTER FUNCT I ON < DEFFNC < X > = " FUNCT I ON " > 
"•ENTER FUNCTION AT LINE 30!!" 



076526521 



PRINT 

PRINT 

REM - 

PRINT 

REM - ABSCISSAS 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

PRINT 

INPUT 

PRINT "NUMBER 

INPUT N 

S=<V-XVN/2 

T=X+S 

R=0 

- COMPUTE 
1=1 TO N 



AND WEIGHT 
. 15275339, 



FACTORS FOR 20-POINT GUASSIAN INTEGRATION 



£.£. 



778535 



. 14917299, . 37370609, . 1420961 1 
. 510867, . 13168864, . 63605368 
. 1 1819453, . 74633191 ,.10193012 
. 8391 1697, . 083276742, . 91223443 
. 062672048, . 96397193, . 04O6O143 
.993 1236,. 01 76 14007 

"LOWER, UPPER LIMITS"; 

X,V 

OF INTERVALS"; 



INTEGRAL FOR EACH SUB INTERVAL 



REM 
FOR 

P=0 

REM - COMPUTE SUMMATION FACTOR FOR EACH SUB INTERVAL 

FOR J=l TO 10 

READ A,B 

P=P+B* < FNC < S*A+T > +FNC < T-S*A > > 

NEXT J 

RESTORE 

R=R+P*S 

T=T+2#S 

NEXT I 

PRINT "INTEGRAL =";R 

PRINT 

PRINT 

PRINT 

INPUT 

IF S=l 



IF S=2 
END 



"CHANGE DATA AND RECOMPUTE?" 
" <. ©=NO , 1 =L I M I TS , 2= I NTERVALS > " ; 
S 

THEN 80 

THEN 100 
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Derivative 



This program calculates the derivative of a given function at a given point. 

You must enter the function being evaluated before you run the program. The function will be entered in a 
definition statement at line 30. For example, to evaluate the equation f( x ) = x 2 + cos ( x ) you would enter the 
following: 

30 DEFFNC(X)=XtE+COS<X> 

Example: 

Calculate the derivative of the equation x 2 + cos ( x ) = when x = -1, x = 0, and x = 1. 

36 DEFFNC < X > =X 12+C0S < X > 
RUN 

DERIVATIVE 

< ENTER X=99999 TO END) 
DERIVATIVE AT X=? -1 

IS- 1.15852881 
DERIVATIVE AT X=? @ 

IS 2.43075192E-07 
DERIVATIVE AT X=? 1 

IS 1.15852833 
DERIVATIVE AT X=? 99999 

10 PRINT "^DERIVATIVE" 
20 PRINT 

29 REM - ENTER FUNCTION < DEFFNC<X>= "FUNCTION" > 

30 PRINT "! ENTER FUNCTION AT LINE 30!" 
40 PRINT "< ENTER X=99999 TO END>" 

50 PRINT "DERIVATIVE AT X="; 
60 INPUT XI 

69 REM - TEST FOR END OF PROGRAM 

70 IF Xl=99999 THEN 160 
80 D=0 

89 REM - CALCULATE DIFFERENCE QUOTIENTS FOR POINTS APPROACHING X 

90 FOR N=l TO 10 
100 D1=D 

110 X=Xl+.5tN 
115 Z=FNC<X>-FNC<X1> 
120 D=ZA"X-X1> 
13© NEXT N 

139 REM - APPROXIMATE DERIVATIVE OF FUNCTION AT X, PRINT 

140 PRINT " IS";2*D-D1 

149 REM - RESTART PROGRAM 

150 GOTO 50 
160 END 

S3 



Roots of Quadratic Equations 



This program calculates the roots of a quadratic equation. The equation must be in the following form: 

ax 2 + bx + c = 
where a,b,c are real coefficients. 
The formula used to calculate the roots is: 



- b±\fb*-4'a'C 
root = 



2- a 



Example: 

Compute the roots of the following equations: 

2x 2 + x-1 =0 
x 2 + Ax + 6 = 

ROOTS OF QUADRAT I C EQUATIONS 

COEFF I C I ENTS A , B , C? 2,1,-1 
ROOTS <REAL> : -1 , .5 

MORE DATA <i=VES,0=NO)? 1 

COEFF I C I ENTS A , B , C? 1,4, 6 

ROOTS < COMPLEX)-' -2 +QR- 1.41421356 I 

MORE DATA <1=VES,0=NO)? Q 



10 PRINT "HROOTS OF QUADRATIC EQUATIONS" 

20 PRINT 

23 REM - ENTER COEFFICIENTS A,B,C OF A*Xt2 + B*X + C 

30 PRINT "COEFFICIENTS A,B,C"; 

40 INPUT A,B,C 

50 S=Bt2-4*A*C 

60 R=SQR < ABS (. S ) ) 

€3 REM - COMPLEX ROOTS? 

70 IF SCO THEN 100 

73 REM - CALCULATE ROOTS, LABEL, PRINT 

SO PRINT "ROOTS CREAL) : "; <-B-R)/<2*A>; 

85 PR INT " , " ; < -B+R ) / < 2* A ) 

30 GOTO 110 

1 00 PR INT " ROOTS < COMPLEX ) : " ; -B/ < 2* A ) ; 

1 05 PR I NT " +0R- " ; R/ < 2* A ) ; " I " 

110 PRINT 

113 REM - RESTART OR END PROGRAM? 
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126 PRINT "MORE DATA <l=VES,@=NO>"; 

139 INPUT X 

140 IF X=l THEN 20 
150 END 
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Real Roots of Polynomials: Newton 



This program calculates real roots of a polynomial with real coefficients. You must give an estimate of each 
root. 

The calculations are performed using Newton's method for approximating roots of equations. The value of 
the error and derivative are included for each root calculated. 

The equation you enter is presently limited to a degree of 10. You may enter a larger degree of equation by 
altering statements 30 and 40 of the program according to the following scheme: 

30 DIM A</V+7> ,B<N+1) 
40 FOR 1 = 1 TO N+ 1 

where N = degree of equation. 

Example: 

Find the roots of 4x 4 - 2.5* 2 - x + 0.5 

REAL ROOTS OF POLYNOMIALS 

NEWTONIAN METHOD 

DEGREE OF EQUATION? 4 

COEFFICIENT A< @ >? .5 

COEFFICIENT A< 1 >? -1 

COEFFICIENT AC 2 >? -2.5 

COEFFICIENT A< 3 >? 

COEFFICIENT AC 4 )? 4 

GUESS? -.8 

ROOT ERROR DERIVATIVE 

.36357634 -2.91038305E-11 -2.870247 

NEW VALUE <i=VES, 0=N0>? 9 
NEW FUNCTION a=VES, 0=N0>? 

10 PRINT "."REAL ROOTS OF POLYNOMIALS" 

12 PRINT 

15 PRINT "NEWTONIAN METHOD" 

20 PRINT 

28 REM - LIMIT flO AND BO TO H+l; WHEN THIS IS DONE, LOOP AT LINE 40 

29 REM - SHOULD BE SET TO TEST FROM 1 TO N+l 

30 DIM A<11>,B(11> 

39 REM - INITIALIZE ARRAV VARIABLES 

40 FOR 1=1 TO 11 
50 A<I>=0 

60 B(I>=0 
70 NEXT I 
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88 PRINT "DEGREE OF EQUATION" .: 

96 INPUT N 

95 PRINT 

108 FOR 1=1 TO N+l 

REM - ENTER COEFFICIENTS 

PRINT "COEFFICIENT A<";I 

INPUT A<I> 

NEXT I 

FOR 1=1 TO 18 

REM - CALCULATE COEFFICIENT 

B<I>=A<I+1>*I 

NEXT I 

PRINT 

INITIALIZE GUESS 

"GUESS"; 

X 



IN ORDER 

1 ; " > " .; 



OF LESSER TO HIGHER DEGREE 



OF DERIVATIVE OF POLYNOMIAL 



REM - 

PRINT 

INPUT 

0=8 

S=l 

Fl=8 

F8=8 

REM - COUNT ITERATIONS 

Q=Q+1 

FOR 1=1 TO N+l 

REM - CALCULATE 

F8=F8+A<I>#S 

REM - CALCULATE 

Fl=Fl+Ba>*S 



VALUE OF FUNCTION 
VALUE OF DERIVATIVE 



189 

118 

128 

138 

140 

149 

150 

160 

170 

179 

ISO 

190 

288 

218 

228 

238 

239 

248 

258 

259 

268 

269 

278 

•?90 NEXT I 

*99 REM - TEST FOR A ZERO DERIVATIVE; IF VES, STOP SEARCH, PRINT 

IF Fl=8 THEN 368 

REM - GET NEW GUESS USING PREVIOUS GUESS 

S=X-F8/F1 

REM - IF NEW GUESS EQUALS LAST GUESS THEN STOP SEARCH, PRINT 

IF X=S THEN 338 

REM - SAVE LAST GUESS 

x=s 

IF Q>188 THEN 498 

GOTO 210 

PRINT "DERIVATIVE = AT X = H ;X 

GOTO ISO 

PRINT 

PRINT " ROOT" ;TABa3>; "ERROR"; 

PR I NT TAB < 29 > ; " DER I VAT I VE " 

PRINT X; TAB< 13> ; F8; TAB<29> ; Fl 

PRINT 

REM - RERUN TO FIND ANOTHER ROOT IN SAME FUNCTION? 

PRINT "NEW VALUE <1=VES, 0=NO>"; 
430 INPUT A 
440 IF A=l THEN 170 
449 REM - RESTART OR END PROGRAM? 
458 PRINT "NEW FUNCTION <1=VES, 8=N0>"; 
468 INPUT A 
478 IF A=l THEN 48 
488 GOTO 558 
439 REM - PRINT CALCULATED VALUES AFTER 188 ITERATIONS; SEARCH 188 MORE? 



389 
318 
319 
328 
329 
338 
348 
358 
368 
378 
388 
398 
395 
488 
418 
419 
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496 PRINT "108 ITERATIONS COMPLETED •' " 

SOO PRINT "X ="JX;"F<X> =";F0 

510 PRINT " CONTINUE a=VES,0=NO.V.; 

520 INPUT fl 

530 IF fi=l THEN 200 

540 GOTO 420 

550 END 
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Roots of Polynomials: Half-interval Search 



This program calculates roots of polynomials within a given interval. The program first conducts a random 
search within the given interval for two points with opposite signs. If a change of sign is found, then the root is 
calculated by the half-interval search method. If there is no change of sign found, another interval will be asked 
for. 

Errors may result in this program for a couple of reasons. First, a root may be calculated when it should not 
be. This may happen if the lowest point is so close to zero that a root is found due to round -off error. Second, 
two roots may be so close together that the program never finds the opposite signs between them. The result in 
this case is that neither root is calculated. 

It is necessary to enter the equation before you run the program. The equation will be defined as a function 
of x at statement 30. For example, if you want to find roots of the function f( x ) = 4x 4 -2.5x 2 -x + .5, you will 
enter: 

30 DEFFNR (X ) =4*X*4-S .5*XtE-X+ .5 

Example: 

Find a root of the function f ( x ) = 4x 4 -2.5x 2 - x + .5. 

3@ DEFFNR < X ) =4*X T4-2 . 5*X T2-X+ . 5 
RUN 

ROOTS OF POLYNOMIALS: 

HALF- INTERVAL SEARCH 

(TO END SEARCH ENTER 0,0) 

INTERVAL (LOWER, UPPER)? -1,0 
NO CHANGE OF SIGN FOUND 
INTERVAL (LOWER, UPPER)? 0,1 
ROOT = .303574787 

INTERVAL ( LOWER, UPPER)? 0,0 

10 PR I NT "."ROOTS OF POLYNOMIALS" 

15 PRINT" HALF- INTERVAL SEARCH 

20 PRINT 

29 REM - ENTER FUNCTION (DEFFNR (X)=" FUNCTION") 

30 PRINT ".'ENTER FUNTION AT LINE 30!" 
40 DIM D(3) 

50 PRINT "(TO END SEARCH ENTER O,©)" 
55 PRINT 

59 REM - ESTABLISH INTERVAL OF RANDOM SEARCH 

60 PRINT "INTERVAL (LOWER, UPPER)"; 
70 INPUT A,B 
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79 REM - TEST FOR USURBLE LIMITS ENTERED 

88 IF ROB THEN 129 

83 REM - END PROGRAM? 

90 IF R=8 THEN 436 

186 PRINT "— INTERVAL LIMITS CANNOT"; 

105 PRINT "BE EQUAL—" 

110 GOTO Sfi 

120 IF A<B THEN 15© 

ISO PRINT "—LOWER LIMIT MUST BE"; 

135 PRINT "ENTERED FIRST—" 

140 GOTO 60 

150 A1=SGN<FNR<A>> 

160 B1=SGN<FNR(B>> 

169 REM - TEST FOR ROOT RT EITHER LIMIT 

170 IF R1*B1=0 THEN 360 

179 REM - TEST FOR OPPOSITE SIGNS RT INTERVAL LIMITS 
ISO IF A1*BK0 THEN 280 

189 REM - LOOP TO SEARCH 10OO NUMBERS FOR OPPOSITE SIRNS IN FUNCTION 

190 FOR 1=1 TO 1000 
200 X=fi+RNIK2>*KB-A> 
210 X1=SGN<FNR<K>> 

219 REM - TEST FOR ROOT RT RANDOM NUMBER; IF VES, END SEARHH. PRINT 

220 IF X1=0 THEN 400 

229 REM - TEST FOR OPPOSITE SIGNS AT RANDOM NUMBER AND LOWER LIMIT 
23© IF fll*XK0 THEN 270 

239 REM - TRY ANOTHER RANDOM NUMBER 

240 NEXT I 

250 PRINT "NO CHANGE OF SIGN FOUND" 

260 GOTO 60 

269 REM - CHANGE OF SIGN FOUND; CALCULATE ROOT 

278 REM - STORE POSITIVE POINT IN IKS), NEGATIVE POINT IN IK1> 

279 REM - BCD AND B<3> BECOME INTERVAL LIMITS 

280 D(2+A1>=A 
290 D<2-A1>=B 

299 REM - CALCULATE MIDPOINT BETWEEN THE TWO LIMITS 

300 V= (. D < 1 > +D < 3 > > ,-'2 
310 V1=SGN<FNR<V>> 

319 REM - TEST FOR ROOT AT MIDPOINT 

320 IF V1=0 THEN 400 

329 REM - GET A NEW LIMIT TO CLOSE IN ON ROOT 

330 D<2+V1>=V 

339 REM - TEST FOR A VALUE CLOSE ENOUGH TO ZERO TO ASSUME A ROOT 

340 IF ABS<Ba>-D<3>VABSaKi> +ABS<rK3)>X5E-* THEN 4m 

349 REM - RETEST WITH NEW LIMITS " 

350 GOTO 300 

359 REM - ROOT AT AH INTERVAL LIMIT; FIND WHICH LIMIT, PRINT 

360 IF A 1=0 THEN 390 
370 V=B 

380 GOTO 40© 

39@ v=A 

400 PRINT "ROOT =":V 

410 PRINT 

419 REM - RESTART PROGRAM 

420 GOTO 6R 
430 END 
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Trig Polynomial 



This program solves a trigonometric function for a given angle. The function must be in the following form: 
f{x)=A, sin(x) + B,cos(x) + A 2 s\n(2x) + fl 2 sin(2x)... + A n sm{n>x) + B n cos{n>x) 
where n = the number of pairs of coefficients. 

The coefficients of the function are to be entered in a data statement at line 30. The data statement will in- 
clude the number of pairs of coefficients ( n ) and the coefficients of the polynomial. It will be entered as follows: 

30 DATA n ,A,,Bi,A 2 ,B 2l ...A n ,B n 

Example: 

Solve the following equation when the angle equals 45°, 90° and 105°: 

f( x )=sH x ) + 2 «cos( x )-2 «sin(2x ) + cos(2x ) + 5 -sin(3x )-3 -cosOx ) 

38 DflTft 3,1,2,-2,1,5,-3 
RUN 

TRIG POLYNOMIAL 

< ENTER fiNGLE=99999 TO END) 

ANGLE? 45 

F< 45 >= 3.09558755 

ANGLE? 90 

F< 90 >=-2. 831631 19 

ANGLE? 105 

F< 105 >=- 1.54684808 

ANGLE? 99399 

10 PRINT "rJTRIG POLYNOMIAL" 

20 PRINT 

29 REM - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS WITH DATA 

STATEMENT 
3fi PRINT "ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTSS AT LINE 30!" 

: PRINT 
40 PRINT "(ENTER ANGLE=99999 TO END>" ^PRINT 

5@ PRINT "ANGLE"; 
60 INPUT R 

69 REM - END PROGRAM? 

70 IF R=99999 THEN 180 
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79 REM - GET NUMBER OF PAIRS OF TERMS IN POLYNOMIAL 

88 READ N 

89 REM - LOOP TO GET VALUES OF COEFFICIENTS FROM DATA TABLE 

90 FOR 1=1 TO N 
1 fiifci f?F"ftTl HI T^ 

109 REM - CALCULATE VALUE OF FUNCTION AT ANGLE X 

1 1 Z=2+ A*S I N < I *R > +B*COS < I #R > 
120 NEXT I 

129 REM - PRINT RESULTS 
j--;Pt P'PIHT "F 1 ' " ■' R I " '■' = " .* 7 

139 REM - PREPARE TO REREAD FUNCTION COEFFICIENTS 

140 RESTORE 
150 PRINT 
160 Z=0 

169 REM - RESTART PROGRAM 

170 GrtTO 50 
ISO END 
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Simultaneous Equations 



This program solves a system of linear equations. The number of unknown coefficients in each equation 
must equal the number of equations being solved. You must enter the coefficients of each equation. 

The dimension statement at line 30 limits the number of equations which may be solved. You may change 
this limit according to the following scheme: 

30 DIM A(ft,/?+7> 

where R = the maximum number of equations. 

Example: 

Solve the following system of equations: 

x,+ 2x t + 3x^=4 

3xi+ 6x z =1 

-3x,+ 4x L - 2xj,= 

36 DIM A<3,4> 
RUN 

SIMULTANEOUS EQUATIONS 

NUMBER OF EQUATIONS? 3 
COEFFICIENT MATRIX: 

EQUATION 1 

COEFFICIENT 1 ? 1 
COEFFICIENT 2 ? 2 
COEFFICIENT 3 ? 3 
CONSTANT? 4 

EQUATION 2 

COEFFICIENT 1 ? 3 
COEFFICIENT 2 ? 6 
COEFFICIENT 3 ? 
CONSTANT? 1 

EQUATION 3 

COEFFICIENT 1 ? -3 
COEFFICIENT 2 ? 4 
COEFFICIENT 3 ? -2 
CONSTANT? 6 

X \ =-.356 
X 2 = .344 
X 3 = 1.222 
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10 PRINT "^SIMULTANEOUS EQUATIONS" 
26 PRINT 

29 REM - LIMIT AO TO ACR+i) WHERE R=MAXIMUM NUMBER OF EQUATIONS 

30 DIM A< 15,15) 

40 PRINT "NUMBER OF EQUATIONS"; 

50 INPUT R 

60 PRINT "COEFFICIENT MATRIX-" 

70 FOR J=l TO R 

30 PRINT 

85 PRINT "EQUATION"; J 

90 FOR 1=1 TO R+l 

100 IF I=R+1 THEN 130 

110 PRINT " COEFFICIENT"; I; 

120 GOTO 140 

130 PRINT "CONSTANT"; 

140 INPUT A<J,I> 

150 NEXT I 

160 NEXT J 

170 FOR J=l TO R 

178 REM - STATEMENTS ISO TO 22© FIND THE FIRST EQUATION WITH 

179 REM - A N0N-2ER0 COEFFICIENT FOR THE CURRENT COLUMN 
ISO FOR I=J TO R 

190 IF Aa,JX>0 THEN 230 
20© NEXT I 

210 PRINT "NO UNIQUE SOLUTION" 
22© GOTO 440 

229 REM - STATEMENTS 230 TO 270 MOVE THAT EQUATION UP TO THE CURRENT 
ROW 

230 FOR K=l TO R+l 
240 X=A<J,K> 

250 R(J,K)=ft(LK) 
260 A<I,K>=X 
270 NEXT K 

273 REM - STATEMENTS 280 TO 31© GENERATE A VALUE OF ONE IN THE FIRST 
NON-ZERO 

279 REM - COLUMN OF THE CURRENT ROW 

280 V=1/A<J,J> 
298 FOR K=l TO R+l 
300 A<J,fO=V*A<J,K> 
310 NEXT K 

318 REM - STATEMENTS 32© TO 33© SUBTRACT CURRENT EQUATION FROM THE OT 

HER ROWS 
32© FOR 1=1 TO R 
330 IFI=J THEN 38© 
340 V=-A<I,J> 
350 FOR K=l TO R+l 
36© Aa,K>=Aa,JO+V*A<J,K> 
37© NEXT K 
33© NEXT I 

389 REM - THIS PROCESS IS REPEATED FOR ALL EQUATIONS 
39© NEXT J 
40© PRINT 

409 REM - PRINT SOLUTIONS 
41© FOR 1=1 TO R 

420 PRINT "X";l;"=";INT<Aa,R+l>#l©00+.5>/1000 
430 NEXT I 
440 END 
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Linear Programming 



Courtesy: Harold Hanes 

Earlham College 
Richmond, Indiana 



This program uses the simplex method to solve a linear programming problem. You must provide the coeffi- 
cients of the objective function and the coefficients, relation and constant of each constraint. This information is en- 
tered in DATA statements before you run the program. 

After you load the program, enter the DATA statements according to the following instructions. If you run more than 
one problem, remember to clear out all DATA statements from the previous problem before running the new problem. 
Our DATA statements occur at lines 30 through 35. 

1) Arrange your problem constraints according to their relation, so that the "less than" inequalities precede 
the-e^aTftieip which in turn precede the "greater than" inequalities. 

2) Type in as DATA the coefficients of the constraints, in the order the constraints were arranged in step 1 Do 
not include coefficients for slack, surplus, or artificial variables. Do include a '0' coefficient for any variable 
that doesn't appear in a particular constraint. 

3) Type in as DATA the constants of the constraints (right-hand sides of the constraints) in the same order as 
you entered the rows of coefficients. These values cannot be negative. 

4) Type in as DATA the coefficients of the objective function. 

You must select whether the problem solution is to be a minimum or maximum value. The program also asks 
you to enter the total number of constraints and the number of variables to allow for each, and the number of less 
than", "equal" and "greater than" constraints you are considering. 

The dimension statement at line 1 80 limits the number of variables and constraints you may enter. You can change 
these limits according to the following scheme: 



180 DIM ACC+2, V+C+G+ />, B(C + 2 ) 
where: C = number of constraints 
V = number of variables 
G = number of "greater than" constraints 



Ul 

a, 

it, 



Example: 

A manufacturer wishes to produce 100 pounds of an alloy which is 83% lead, 14% iron, and 3% antimony. 
He has available five alloys with the following compositions and prices: 



alloy 1 alloy 2 alloy 3 alloy 4 alloy 5 

U'CCi 

How should he combine these alloys to get the desired product at minimum cost? 
Note that this problem results in the following system of equations: 



90 


80 


95 


70 


30 


5 


5 


2 


30 


70 


5 


15 


3 








$6.13 


$7.12 


$5.85 


$4.57 


$3.96 



*1 + 



X 2 + X 3 + *4 + 



*5 " 

.90x, + .80x 2 + .95x 3 + .70x 4 + .30x 5 = 

.05x, + .05x 2 + .02x 3 + .30x 4 + .70x 5 - 

.05x, + .15x 2 + .03x 3 + + =■ 

6.13x |~ + 7.12x 2 + 5 85x 3 + 4.57x " 4 + 3.96x 5 = 



100 

83 

14 

Z (min) 
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LINEAR PROGRAMMING - SIMPLEX METHOD 

1 MAXIMIZES -1 MINIMIZES? -1 

# OF CONSTRAINTS, # OF VARIABLES? 4,5 

# OF <,=,> CONSTRAINTS? 8,4,6 



VOUR VARIABLES 1 THROUGH 5 
ARTIFICIAL VARIABLES 6 THROUGH 9 



ANSWERS •" 

PRIMAL VARIABLES: 
VARIABLES VALUE 
2 18.4347826 

4 41.7391304 
VALUE OF OBJECTIVE "FUNCTION = 544.826687 



1 REM - LINEAR PROGRAMMING 

26 REM - *** DO THE FOLLOWING STEPS BEFORE RUNNING THE PROGRAM *** 

21 REM - TVPE IN COEFFICIENTS OF •'<•','=', O' CONSTRAINTS IN DATA 
STATEMENTS; 

22 REM - STARTING AT LINE 36, A SEPERATE DATA STATEMENT FOR EACH 
CONSTRAINT.: 

23 REM - < LINES 36-35 IN OUR EXAMPLE) 

24 REM - TVPE IN CONSTANTS OF THE CONSTRAINTS IN A DATA STATEMENT 
FOLLOWING; 

25 REM - THE COEFFICIENT DATA, AND IN THE SAME ORDER AS THE CONSTRAINT 
DATA; 

26 REM - WERE ENTERED <LINE 34 IN OUR EXAMPLE > 

27 REM - TVPE IN COEFFICIENTS OF THE OBJECTIVE FUNCTION IN A DATA 
STATEMENT 

28 REM - <LINE 35 IN OUR EXAMPLE) FOLLOWING THE CONSTANTS DATA 
36 DATA 1,1,1,1,1 



31 DATA .9, .8,. 95, .7, .3 J m o \ . £ 



32 DATA . 85, . 85, . 82, . 3, . 7 V t**U o\ c o <^A* *-► 

33 DATA . 65 , . 1 5 , . 63 , 8,6 __ 

34 DATA 166,83,14,3 ^M ^ |\ \. 



35 DATA 6. 13, 7. 12, 5. 85, 4. 57, 3. 96 a bie^t f^ ct( ^ 

166 PRINT "IT' J 

176 PRINT "LINEAR PROGRAMMING - "; 

175 PRINT "SIMPLEX METHOD" 

188 DIM A<6,18),B<6> 

268 PRINT 

218 PRINT "1 MAXIMIZES -1 MINIMIZES"; 

228 INPUT Z 

236 Z=-Z 

248 PRINT "# OF CONSTRAINTS,* OF "; 

245 PRINT "VARIABLES"; 

258 INPUT M,H 

268 PRINT "# OF <,=,> CONSTRAINTS"; 

278 INPUT L,E,G 

288 IF M=L+E+G THEN 326 

296 PRINT "INCONSISTENT DATA - "; 
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295 

200 

320 
330 



350 
360 
380 
390 

400 

410 
420 
430 
440 
450 
f — 460 
I 470 



PRINT "TRV flGRIN" 

GOTO 260 

REM - THIS IS THE INITIALIZATION ROUTINE 

C=N+M+G 

C1=C+1 

C2-N+L+G 

M1=M+1 

M2=M+2 

PRINT 

FOR 1=1 TO M2 

FOR -J=l TO CI 

FKI,J>=0 

NEXT J 

NEXT I 

FOR 1=1 TO M 

B(I>=0 

NEXT I 

FOR 1=1 

FOR J=l 



490 

50© 

510 
520 
530 
540 
550 
560 
570 



r (?"'■/(. 



590 

600 

610 
620 
50 
640 
650 
660 
,-670 



690 

-700 

710 
730 
731 
740 
750 
751 
760 
770 
771 
780 
790 
791 

800 

310 
820 
330 



to r-1 : 

TO N 
READ FKI,J> # 
IF IOL THEN 520 
flCMl , J>=A<M1 , J)-fl< I , J> 
NEXT J 

IF I>L THEN 57© 
B<I>=N+I 
fla,N+I>=l 
GOTO 630 
B<I>=N+G+I 
fl<I,N+G+I>=l 
IF DL+E THEN 610 
GOTO 630 
fKI,N+I-E>=-l 
FKM1,N+I-E>=1 
NEXT I 

FOR 1=1 TO M , ,\C 
READ FKI,C1> o "• " 
NEXT I 

FOR J=l TO N ] 
READ A<M2,J> ? £* 
A<M2,J>=Z#A<M2,J> 
NEXT J 
PRINT 

PRINT "VOUR VARIABLES "; 
PRINT 1; "THROUGH"; N 
IF L=0 THEN 760 
PRINT "SLACK VARIABLES"; 
PRINT N+l; "THROUGH" ;N+L 
IF G=0 THEN 780 
PRINT "SURPLUS VARIABLES"; 
PRINT N+L+l; "THROUGH" ;C2 
IF L=M THEN 970 
PRINT "ARTIFICIAL VARIABLES"; 
PRINT C2+1; "THROUGH" ;C 
M3=M1 

GOSUB 1240 
PRINT 
FOR 11=1 TO M 
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848 IF B<I1.X=C2 THEN 950 

859 IF fKIl,Cl.K=.00001 THEN 880 

860 PRINT "NO FEASIBLE SOLUTION" 
870 GOTO 1700 

880 FOR Jl=i TO C2 

898 IF fiBS<FKIl,JlXX=.80001 THEN 940 

908 R=I1 

918 S=J1 



GOSUB 1490 
930 J1=C2 
940 NEXT Jl 
950 NEXT II 
970 PRINT 
988 f13=M; 



/ 



e. 



990 GOSUB 1248 

1020 PRINT 

1030 PRINT "ANSWERS:" 

1040 PRINT "PRIMAL VARIABLES:" 

1058 PRINT "VARIABLES", "VALUE" 

1060 FOR J=l TO C2 

1870 FOR 1=1 TO M 

1980 IF E(I)OJ THEN 1118 

1098 PRINT ,T,A<I,C1> 

1100 I=f1 

1118 NEXT I 

1128 NEXT J 

1136 IF L=0 THEN 1190 

1148 PRINT "DUAL VARIABLES:" 

1 1 50 PR I NT " VAR I ABLE " , " VALUE " 

1166 FOR 1=1 TO L 

1178 PRINT I,-Z*A<M2,N+I> 

1188 NEXT I 

1198 PRINT "VALUE OF OBJECTIVE "; 

1191 PRINT "FUNCTION =";-Z*A<M2,Cl> 

1280 PRINT 

1210 PRINT 

1220 PRINT 

1230 GOTO 1700 

1248 REM - OPTIMIZATION ROUTINE 

1241 REM - FIRST PRICE OUT COLUMNS 

1260 P=~. 00001 

1270 FOR J=l TO C2 

1288 IF A<M3,J»=P THEN 131© 

1290 S=J 

1308 P=fi<M3,J> 

1318 NEXT J 

1328 IF P=-. 00001 THEN 1688 

1338 GOSUB 1350 

1340 GOSUB 1440 

1345 GOTO 1260 

1350 REM - NOW FIND WHICH VARIABLE LEAVE BASIS 

1360 Q=1E33 

1378 FOR 1=1 TO M 

1388 IF Aa,SX=.00001 THEN 1420 

1 390 IF A< I , CI VA< I , S»=G THEN 1420 

1400 R=I 

1410 Q=ACI,Cl.VAa,S> 
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1428 
1436 
144© 
1458 
1460 
1478 
1 480 
1 498 
1588 
1510 
1 520 
1530 
1548 
1558 
1 568 

i •_' I Kf 
A -JOZf 

1 598 
1688 
1618 
1628 
1638 
1648 



1668 
1678 
1688 
1788 



NEXT I 

RETURN 

IF Q=1E38 THEN 1478 

GOSUE 1498 

RETURN 

PRINT "THE SOLUTION IS UNBOUNDED" 

GOTO 1788 

REM - PERFORM PIVOTING 

P=FKR..S> 

FOR 1=1 TO M2 

IF I=R THEN 1598 

FOR J=l TO CI 

IF J=S THEN 1588 

fl ( I , J > =fi < I , J > -fl ( I .• S ) #fl < R , J > /P 

IF fiBS<:FKI,J::0>=.88881 THEN 1588 

fl<I,J>=8 

NEXT J 

NEXT I 

FOR J=l TO CI 

FKR,J>=fKR,J>/P 

NEXT J 

FOR 1=1 TO M2 

flCI,S>=8 

NEXT I 

fl<R,S>=l 



B<R>=S 
RETURN 
END 
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Matrix Addition, Subtraction, Scalar Multiplication 



This program adds or subtracts two matrices, or multiplies a matrix by a given scalar. You must input the 
value of each element of each matrix. To perform addition or subtraction the dimensions of the two matrices 
must be equal. 

The dimension of the matrices may be increased or decreased depending on the amount of memory availa- 
ble in your system. Statement 30 may be changed to: 

30 DIM A<X,y>, B(X,/) 



where ( X, Y ) is your limit on the dimension of the matrices. 

Example: 

Find the sum of the following matrices, then multiply the resultant matrix by 3. 



1 





-1 




-5 


-1 


2 


5 


8 


.5 




6 


-.1 





1 


2 







3 


4 


-2 



MATRIX ADDITION. SUBTRACT I ON, 
SCALAR MULTIPLICATION 

1 -ADDITION 

2=SUBTARCTI0N 

3=MULTIPLICATIGN 

WHICH OPERATION? 1 

DIMENSION OF MATRIX CR,C>? 3,3 

MATRIX I-" 



ROW 1 








VALUE 


COLUMN 


1 


? 1 


VALUE 


COLUMN 


•ri 


? 


VALUE 


COLUMN 


•J 


? -1 


ROW 2 








VALUE 


COLUMN 


1 


? 5 


VALUE 


COLUMN 


2 


? 8 


VALUE 


COLUMN 


3 


? .5 


ROW 3 








VALUE 


COLUMN 


1 


? -i 


VALUE 


COLUMN 




a. 


VALUE 


COLUMN 


o 


? 


MATRIX 2: 






ROW 1 








VALUE 


COLUMN 


1 


? -5 


VALUE 


COLUMN 


• — 1 


? -1 


VALUE 


COLUMN 


3 


":** £^ 


ROW 2 








VALUE 


COLUMN 


1 

j. 


? 6 
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VfiLUE 


COLUMN 


2 


•>j 


-. 1 


VALUE 


COLUMN 


3 


jy 





ROW 3 










VALUE 


COLUMN 


1 


? 


3 


VALUE 


COLUMN 


2 


? 


4 


VALUE 


COLUMN 


3 


•<ji 


-2 


-4 


-1 1 








11 


7.9 


i 


.5 




2 


6 -2 








MORE DATA? <1 


=VES 


y,@= 



1= ADDITION 

2=SUBTARCTI0N 

3=MULTIPLICATI0N 

WHICH OPERATION? 3 

VALUE OF SCALAR? 3 

DIMENSION OF MATRIX <R,C>? 3,3 

MATRIX 1= 

ROW 1 

VALUE COLUMN 1 ? -4 

VALUE COLUMN 2 ? -1 

VALUE COLUMN 3 ? 1 

ROW 2 

VALUE COLUMN 1 ? 11 

VALUE COLUMN 2 ? 7.9 

VALUE COLUMN 3 ? .5 

ROW 3 

VALUE COLUMN 1 ? 2 

VALUE COLUMN 2 ? 6 

VALUE COLUMN 3 ? -2 

-12 -3 3 

33 23.7 1.5 

6 13 -6 

MORE DATA? <i=VES,0=NO>? 



20 PRINT 'TUflTRIX ADDITION, "; 

21 PRINT "SUBTRACTION," 

22 PRINT "SCALAR MULTIPLICATION" 
25 PRINT 

29 REM - ARRAVS SHOULD BE SET TO DIMENSONS OF MATRICES 

30 DIM A<3,3>,BC3,3> 
40 PRINT "l=ADDITION" 

50 PRINT "2=SUBTRACTI0N" 

60 PRINT "3=SCALAR MULTIPLICATION" 

65 PRINT 

69 REM - SELECT OPERATION BV ENTERING THE OPERATION NUMBER <l-3> 

70 PRINT "WHICH OPERATION"; 
80 INPUT D 

89 REM - TEST FOR ADDITION OR SUBTRACTION 

90 IF DOS THEN 120 

190 PRINT "VALUE OF SCALAR".: 

110 INPUT S 

120 PRINT "DIMENSION OF MATRIX <R,C>"; 



77/ 



138 INPUT R,C 

138 REM - LOOP TO ENTER MATRIX VALUES 

139 REM - FOR SUBTRACTION, MATRIX 2 SUBTRACTED FROM MATRIX 1 

140 FOR K=l TO 2 
150 IF K=2 THEN ISO 
160 PRINT "MATRIX 1:" 
170 GOTO 190 

ISO PRINT "MATRIX 2-" 

190 FOR J=l TO R 

200 PRINT "ROW"; J 

210 FOR 1=1 TO C 

228 PRINT "VALUE COLUMN"; I.; 

230 IF K=2 THEN 260 

246 INPUT ACJ,I> 

258 GOTO 270 

268 INPUT B<J,I> 

278 NEXT I 

288 NEXT J 

289 REM - ONLV ONE MATRIX USED FOR SCALAR MULTIPLICATION 
298 IF D=3 THEN 310 

300 NEXT K 

308 REM - STATEMENTS 318 TO 419 PERFORM REQUESTED OPERATION AND PRINT 

309 REM - RESULTANT MATRIX 

310 FOR J=l TO R 
320 FOR 1=1 TO C 
330 IF D<>2 THEN 350 
340 B<J,I>=-BCJ,I> 
358 IF D=3 THEN 388 

368 PRINT A<J,I)+B<J,I>;" "; 

378 GOTO 398 

388 PRINT Aa,I>#S;" "; 

398 NEXT I 

399 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 
488 PRINT 

418 NEXT J 

428 PRINT 

429 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
438 PRINT "MORE DATA? <1=VES, 8=N0>"; 

448 INPUT D 

458 IF D=l THEN 38 

468 END 
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Matrix Multiplication 



This program multiplies two matrices. The first matrix is multiplied by the second. You must input the ele- 
ments of each matrix. 

In order for this operation to be performed the number of rows in the first matrix must equal the number of 
columns in the second matrix. 

The dimensions of the matrices are presently limited to 20 x 20. This limit may be increased or decreased by 
altering line 30 according to the following scheme: 

30 DIM A<X,/> , B<Z,X) 

where: (X,Y) = dimension of matrix 1 
( Z,X ) = dimension of matrix 2 

Example: 

Multiply matrix 1 by matrix 2. 



38 DIM FK3.. 5'?, B< 5.. SO- 
RUN 



MflTR I X MULT I PL I CRT I ON 



2 


-1 


4 


1 


2 


1 





1 


2 


-1 


2 


3 


-1 





-2 


-2 


-1 


2 









2 


1 






-1 


1 


4 






3 





-1 






2 


1 


2 







MATRIX 1 

MATRIX 2 

MATRIX 1 

ROW 1 

VALUE 

VALUE 

VALUE 

VALUE 

VALUE 

ROW 2 

VALUE 

VALUE 

VALUE 

VALUE 

VALUE 



DIMENSION 
DIMENSION 



<R,C>? 
<R,C>? 



3,5 
5,3 



COLUMN 
COLUMN 
COLUMN 
COLUMN 
COLUMN 

COLUMN 
COLUMN 
COLUMN 
COLUMN 
COLUMN 



4 



i 

c 
%.» 

4 
5 



4 
1 



1 
6 
1 

■"> 

Cm 

"I 
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ROW 3 








VALUE 


COLUMN 


1 




VALUE 


COLUMN 


*T* 




VALUE 


COLUMN 


■~i 


? -1 


VALUE 


COLUMN 


4 


? O 


VALUE 


COLUMN 


4 


•—> _^> 


MATRIX 


i c * 






ROW 1 








VALUE 


COLUMN 


1 




VALUE 


COLUMN 




? -1 


VALUE 


COLUMN 


y 


: c 


ROW 2 








VALUE 


COLUMN 


1 


? 


VALUE 


COLUMN 


^-, 


■"? O 


VALUE 


COLUMN 


3 


? 1 


ROW 3 








VALUE 


COLUMN 


1 


? -1 


VALUE 


COLUMN 


kl 




VALUE 


COLUMN 




? 4 


ROW 4 








VALUE 


COLUMN 


l 


**"•* *"!? 


VALUE 


COLUMN 


o 


? 


VALUE 


COLUMN 




? -1 


ROW 5 








VALUE 


COLUMN 


1 

X 


•~l ."^| 


VALUE 


COLUMN 


2 




VALUE 


COLUMN 


3 


""t 1 *"? 


-i 


c. cLii. 




l 


•1 2 






~i' - 


1 -1 







18 PRINT 'TUflTRIX MULTIPLICATION" 
29 PRINT 

29 REM - ARRAYS A AND B SHOULD BE SET TO DIMENSIONS OF MATRICES 

30 DIM A < 20 .. 20 ) . B < 20 .. 20 > 

4© PRINT "MATRIX 1 DIMENSION <R,C>"; 

50 INPUT R1,C1 

60 PRINT "MATRIX 2 DIMENSION <R,C>"; 

70 INPUT R2,C2 

79 REM - NUMBER OF COLUMNS IN MATRIX 2 MUST EQUAL NUMBER OF ROWS IN 

MATRIX 2 
SO IF C1=R2 THEN lie 
90 PRINT "CANNOT BE MULTIPLIED" 
100 GOTO 40 

109 REM - ENTER MATIRX VALUES 

110 PRINT "MATRIX 1:" 
120 FOR J=l TO Rl 

139 PRINT "ROW"; J 

140 FOR 1=1 TO CI 

150 PRINT "VALUE COLUMN"; I. : 
160 INPUT AOJ,I> 
170 NEXT I 
ISO NEXT J 
190 PRINT 
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280 PRINT "MATRIX 2-" 

210 FOR J=l TO R2 

220 PRINT "ROW"; J 

230 FOR 1=1 TO C2 

240 PRINT "VALUE COLUMN"; I; 

250 INPUT B<J,D 

260 NEXT I 

270 NEXT J 

280 PRINT 

289 REM - PERFORM MATRIX MULTIPLICATION, PRINT RESULTANT MATRIX 

290 FOR 1=1 TO Rl 
300 FOR J=l TO C2 
310 S=0 

320 FOR K=l TO CI 

330 S=S+A < I , K ) *B d K , J > 

340 NEXT K 

350 PRINT S;" "; 

360 NEXT J 

369 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT ROW 

370 PRINT 
380 NEXT I 
390 END 
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y 

_, 

Matrix Inversion 



This program inverts a square matrix. The inversion is performed by a modified Gauss-Jordan elimination 
method. 

The dimensions of the matrices are presently limited to 20 * 20. This limit may be increased or decreased by 
altering line 30 according to the following scheme: 



30 DIM A</?,/?>, B</?,/?> 
where R — number of rows (or columns) in the matrix. 



Example: 

Invert matrix A. 



3 


5 


-1 


-4 


1 


4 


-.7 


-3 





-2 





1 


2 


6 





.3 



MATRIX INVERSION 



MATRIX 


5 DIMENSION' 


* 4 






MATRIX 


! ELEMENTS^ 








ROW 1 










VALUE 


COLUMN 1 ? 


3 






VALUE 


COLUMN 2 ? 


5 






VALUE 


COLUMN 3 ? 


-1 






VALUE 


COLUMN 4 ? 


-4 






ROW 2 










VALUE 


COLUMN 1 ? 


1 






VALUE 


COLUMN 2 ? 


4 






VALUE 


COLUMN 3 ? 


"7 






VALUE 


COLUMN 4 ? 


-3 






ROW 3 










VALUE 


COLUMN 1 ? 









VALUE 


COLUMN 2 ? 


-2 






VALUE 


COLUMN 3 ? 









VALUE 


COLUMN 4 ? 


1 






ROW 4 










VALUE 


COLUMN 1 ? 


-2 






VALUE 


COLUMN 2 ? 


6 






VALUE 


COLUMN 3 ? 









VALUE 


COLUMN 4 ? 


.3 






.654 


-.935 




-.191 


.014 


.198 


-.283 




-.103 


.156 


.368 


-1.955 


-4.263 


-.425 


.397 


-.567 




.793 


.312 
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10 PRINT "mflTRIX INVERSION" 

20 PRINT 

29 REM - fiO AND BO SHOULD BOTH BE SET TO THE DIMENSIONS OF THE mi IRK 

30 DIM FK20,20>,Bc:20,20> 

39 REM - MflTRIX IS SQUARE SO ONLV ONE DIMENSION IS NEEDED 

40 PRINT "MflTRIX DIMENSION"; 
56 INPUT R 

60 PRINT "MflTRIX ELEMENTS'" 

69 REM - ENTER MflTRIX ELEMENTS 

70 FOR J=l TO R 
SO PRINT "ROW"; J 
90 FOR 1=1 TO R 

100 PRINT "VALUE COLUMN"; I; 
110 INPUT fl(J,I> 
120 NEXT I 
130 B(J,J>=1 
140 NEXT J 

149 REM - STATEMENTS ISO TO 420 INVERT MATRIX 

150 FOR J=l TO R 
i£Q FOR I=J TO R 

170 IF fl(LJ)O0 THEN 210 

ISO NEXT I 

190 PRINT "SINGULAR MATRIX" 

200 GOTO 500 

210 FOR K=l TO R 

220 S=f\(.JAO 

230 fKJ,K>=A<I,K> 



240 


fki,k; 


■=S 








250 


S=B<J. 


K> 








260 


b<j,k; 


>=B(I, 


k: 


!i 




270 


b<i,k: 


'• = S 








280 


NEXT V 










290 


T=i/fi< 


:j,j> 








300 


FOR K= 


= 1 TO 


R 






310 


fkj,k; 


'=T*fl< 


:jj 


■ K> 




320 


b<j,k; 


:>=T*B< 


:j. 


■ K> 




330 


NEXT ¥ 










340 


FOR L= 


= 1 TO 


r 






350 


if l=.: 


T THEf- 


^ 410 




360 


T=-fl<L,J> 








370 


FOR K= 


= 1 TO 


R 






380 


fl(L,K; 


■=ac;l. 


k: 


■>+jm<.j J 


■ K> 


390 


b<l,k; 


•=B<L, 


k; 


■+T*B(J J 


JO 


406 


NEXT Y 










410 


NEXT L 








420 


NEXT .; 


r 








430 


PRINT 










439 


REM - 


PR INI 


" RESULTANT MATRIX 


440 


FOR 1 = 


=1 TO 


R 







450 FOR J=l TO R 

459 REM - ROUND OFF, PRINT 

460 PR I NT I NT < E(L J > * 1 096+ . 5 > / 1 000 , 

461 PRINT " "; 
470 NEXT J 

479 REM - ADVANCE OUTPUT DEVICE TO PRINT NEXT LINE 

480 PRINT 
490 NEXT I 
500 END 
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Permutations and Combinations 



This program computes the number of permutations and combinations of N objects taken D at a time. 

Examples: 

How many permutations and combinations can be made of the 26 letters of the alphabet, taking five at a 
time? 

How many different ways can 12 people sit on a bench if there is only room for two at a time? 

PERMUTATIONS & COMBINATIONS 

(ENTER O TO END PROGRAM) 
TOTAL NUMBER OF OBJECTS? 26 
SIZE OF SUBGROUP? 5 

7893606 PERMUTATIONS 

65780 COMBINATIONS 

TOTAL NUMBER OF OBJECTS? 12 
SIZE OF SUBGROUP? 2 

132 PERMUTATIONS 

66 COMBINATIONS 

TOTAL NUMBER OF OBJECTS? © 



20 PRINT "^PERMUTATIONS & COMBINATIONS" 
25 PRINT 

30 PRINT "< ENTER TO END PROGRAM)" 
40 PRINT "TOTAL NUMBER OF OBJECTS"; 
50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN 280 

70 PRINT "SIZE OF SUBGROUP"; 
80 INPUT D 

89 REM - SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP 

90 IF D<=N THEN 130 

100 PRINT "SUBGROUP TOO LARGE" 
110 PRINT 
120 GOTO 40 

129 REM - LINES 130 TO 200 COMPUTE PERMUTATIONS 

130 P=l 
140 C=l 

150 FOR I=N-D+1 TO N 

159 REM - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACIT 

160 IF 1.7E38/I>=P THEN 19© 

170 PRINT "> 1.7E38 PERMUTATIONS" 
180 GOTO 280 
190 P=P*I 
200 NEXT I 
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2091 REM - COMPUTE INTERMEDIATE FACTORIAL FOR COMBINATIONS 

210\FOR J=2 TO B 

22© C=C#J 

230 NEXT J 

248 PRINT P; "PERMUTATIONS" 

250 PRINT P/C; "COMBINATIONS" 

260 PRINT 

269 REM - RESTART PROGRAM 

270 GOTO 40 
230 ENB 
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Mann-Whitney U Test 



This program performs the Mann-Whitney U test on samples from two populations. 

The dimension statement on line 30 limits the size of the samples. You can increase or decrease the dimen- 
sion limits according to the following scheme: 

30 DIM X<M) , Y(/V) 

where: M = maximum size of first sample 

N = maximum size of second sample 

Example: 

A group of ten women and a group of ten men were asked to rate the flavor of a frozen T.V. dinner on a 
scale of one to ten. The table below lists the scores. Count the number of times the women's scores are lower 
than the men's, and vice-versa. 

women 
men 

38 dim xa0>,va@> 

RUN 

MANN-WH I TNE V U-TEST 

SAMPLE 1 : 
SIZE? 18 



1 


3 


4 


3 


6 


8 


9 


7 


8 


4 


7 


9 


8 


5 


10 


9 


10 


6 


5 


2 



DATA 1 ? 1 

DATA 2 ? 3 

DATA 3 ? 4 

DATA 4 ? 3 

DATA 5 ? 6 

HATA 6 ? 8 

DATA 7 ? 9 

DATA 8 ? 7 

DATA 9 ? 8 

DATA 16 ? 4 

SAMPLE 2 : 
SIZE? 18 
DATA 1 ? 7 
DATA 2 ? 9 
DATA 3 ? 8 
DATA 4 ? 5 
DATA 5 ? 10 
DATA € ? 9 
DATA 7 ? 10 
DATA 8 ? 6 
DATA 9 ? 5 
DATA 10 ? 2 

FIRST PRECEDING, U = 71.5 
SECOND PRECEDING. 
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19 PRINT "IT! ANN-WHITNEY U-TEST" 
28 PRINT 

28 REM - SET MAXIMUM SAMPLE SIZE TO X<M>,V<CN> (WHERE M=MAXIMUM SIZE OF 

29 REM - SAMPLE 1, N=MAXIMUM SIZE OF SAMPLE 2> 

30 DIM X<25>,V<25> 
40 DIM N<2> 

43 REM - INPUT THE TWO SAMPLES 

50 FOR 1=1 TO 2 

60 PRINT "SAMPLE"; I.:":" 

70 PRINT " SIZE"; 

80 INPUT N<I> 

90 FOR J=l TO N<I> 

100 PRINT " BATA";J; 

110 INPUT V<J> 

120 NEXT J 

129 REM - SORT EACH SAMPLE 

130 FOR J=l TO MI) 
140 FOR K=l TO N<I>-J 
150 C=Y<K> 

170 IF V(KXV(K+1) THEN 200 
ISO Y<K>=V<K+1> 
190 Y<K+1>=C 
200 NEXT K 
210 NEXT J 
PRINT 
19 REM - TRANSFER FIRST EXAMPLE TO X-ARRAV 
IF 1=2 THEN 278 
240 FOR J=l TO N<1> 
250 X<J>=V<J> 



CLtLK 



£-3K} 



■-■-J 

CI 



•">"?' 



NEXT J 
NEXT I 
9 REM - ADD UP RANKS 



230 R=l 

290 1=0 

300 J=0 

310 1=1+1 

320 J=J+1 

330 IF I>N<1> THEN 580 

340 IF J>N<2> THEN 620 

350 IF X(IKV(J) THEN 620 

360 IF V(JKX(I) THEN 590 

369 REM - LINES 370 TO 570 HANDLE EQUAL SCORES FROM BOTH SAMPLES 

370 K=2 
380 M=I 
398 L=J 

400 R1=2*R+1 

410 R=R+2 

420 1=1+1 

430 J=J+1 

440 IF I>N(1> THEN 480 

450 IF X<I.KXI-1> THEN 430 

460 1=1+1 

470 GOTO 510 

480 IF J>N<2) THEN 55© 

490 IF V(J)0(M) THEN 558 

500 J=J+1 

510 R1=R1+R 
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528 R=R+1 
538 K=K+1 
546 GOTO 440 

550 x=x+<i-mmi/K 

560 V=V+<J-L>*R1/K 
570 GOTO 338 
530 IF J>N<2> THEN 66@ 
590 V=V+R 

600 JssJ+1 

610 GOTO 640 

620 X=X+R 

630 1=1+1 

640 R=R+1 

650 GOTO 330 

659 REM - U1=NUMBER OF TIMES SAMPLE 1 SCORES PRECEDE SAMPLE 2 SCORES 

66Q U1=H< 1 )*N<2)+N< 1 )*<N< 1 >+l >/2-X 

669 REM - U2=NUMEER OF TIMES SAMPLE 2 SCORES PRECEDE SAMPLE 1 SCORES 

678 U2=N < 1 > *N < 2 > +N < 2 > # < N < 2 > + 1 > /2- V 

680 PRINT 

69Q PRINT "FIRST PRECEDING, U =";U1 

700 PRINT "SECOND PRECEDING, U =";U2 

710 END 
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Mean, Variance, Standard Deviation 



This program calculates the arithmetic mean, variance and standard deviation of grouped or ungrouped 
data. The data may represent the entire population or just a sample. 

Examples: 

There are ten people in a hotel lobby, aged 87, 53, 35, 42, 9, 48, 51, 60, 39 and 44. What would the mean, 
variance and standard deviation of the ages of all the people in the hotel be using the people in the lobby as a 
sample? 

Find the mean, variance and standard deviation of the ages of the cream cheese on a market shelf. The table 
below lists the age distribution of 50 packages. Assume the table shows the store's entire inventory. What if it is 
only a sample of the inventory? 

age 
quantity 

cream cheese 



1 


2 


3 


4 


5 


6 


15 


10 


9 


6 


7 


3 



MEAN, VARIANCE, STANDARD DEVIATION 

METHOD <0=POPULATION, 1=SAMPLE>? 1 
DATA <0=GROUPEB, 1=UNGR0UPED>? 1 
NUMBER OF OBSERVATIONS? IS 
ITEM 1 ? 87 
ITEM 2 ? 53 



ITEM 


3 


'"? 


35 




ITEM 


4 


•■j 


42 




ITEM 


5 


o 


9 




ITEM 


6 


? 


48 




ITEM 


i 


? 


51 




ITEM 


8 


? 


60 




ITEM 


9 


*? 


39 




ITEM 


10 ? 44 




MEAN 






VARIANCE 


46. S 




389. 


733332 



STANDARD DEVIATION 
19.7416649 

MORE DATA <1=YES, 0=N0>? 1 

METHOD <0=POPULATION, 1=SAMPLE>? 
DATA <0=GROUPED, 1=UNGR0UPED>? 
NUMBER OF OBSERVATIONS? 6 
ITEM, FREQUENCY 1 ? 1,15 



ITEM, FREQUENCY 2 ? 



10 



ITEM, FREQUENCY 3 ? 3,9 
ITEM, FREQUENCY 4 ? 4,6 
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ITEM, FREQUENCY 5 ? 5,7 
ITEM, FREQUENCY 6 ? 6,3 

MEAN VARIANCE 
2.78 2.57159999 

STANDARD DEVIATION 
1.6836209 

METHOD <0=POPULATION, 1=S AMPLE)? 1 

DATA <0=GROUPED, l=UNGROUPED>? 

NUMBER OF OBSERVATIONS? 6 

ITEM, FREQUENCY 1 ? 1,15 

ITEM, FREQUENCY 2 ? 2,10 

ITEM, FREQUENCY 3 ? 3,9 

ITEM, FREQUENCY 4 ? 4,6 

ITEM, FREQUENCY 5 ? 5,7 

ITEM, FREQUENCY 6 ? 6,3 

MEAN VARIANCE 
2.73 2.62408162 

STANDARD DEVIATION 
1.6199017 

MORE DATA <1=YES, ©=NO>? O 



10 PRINT ".TIE AN, VARIANCE, "; 

20 PRINT "STANDARD DEVIATION" 

25 PRINT 

38 PRINT "METHOD <0=POPULATION, ".: 

31 PRINT "1=SAMPLE>"; 

40 INPUT S 

50 PRINT "DATA <0=GROUPED, "; 

51 PRINT "l=UNGROUPED>"; 
60 INPUT K 

70 PRINT "NUMBER OF OBSERVATIONS"; 
80 INPUT N 
90 R=0 

100 M=0 

11© P=0 

120 IF K=l THEN 230 

129 REM - FOR GROUPED DATA 

13© FOR 1=1 TO N 

140 PRINT "ITEM, FREQUENCY"; I; 

150 INPUT A,B 

159 REM - ACCUMULATE ENTERED VALUES 

160 R = R+B#A 

169 REM - ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE 

170 P=P+B 
180 M=M+B*A12 
190 NEXT I 

199 REM - CALCULATE MEAN AND VARIANCE 

200 R=R/P 

210 V=<M-P#RT2V<P-S> 
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219 REM - PRINT RESULTS 

228 GOTO 318 

229 REM - FOR UNGROUPED DATA 

230 FOR 1=1 TO N 
240 PRINT " ITEM"; I; 
250 INPUT D 

259 REM - ACCUMUATE ENTERED VALUES 

269 REM - ACCUMULATE INTERMEDIATE VALUES FOR VARIANCE 

270 M=M+D12 
280 NEXT I 

289 REM - CALCULATE MEAN AND VARIANCE, PRINT 

290 R=P/N 

300 V=<M-N*Rt2V<N-S> 
310 PRINT 

319 REM - PRINT RESULTS 

320 PRINT "MEAN", "VARIANCE" 

330 PRINT R,V 

331 PRINT 

332 PRINT "STANDARD DEVIATION" 

333 PRINT SQR<V> 
340 PRINT 

349 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

350 PRINT "MORE DATA a=VES, 0=NO>"; 
360 INPUT S 

370 IF S=l THEN 25 
380 END 
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Geometric Mean and Deviation 



This program computes the geometric mean and standard deviation of a set of data. 

Example: 

Find the geometric mean and standard deviation of 3, 5, 8, 3, 7, 2. 



GEOMETRIC MEAN AND DEVIATION 

(TO END PROGRAM, ENTER 0) 

NUMBER OF OBSERVATIONS? 6 

ITEM 1 ? 3 

ITEM 2 ? 5 

ITEM 3 ? 8 

ITEM 4 ? 3 

ITEM 5 ? 7 

ITEM 6 ? 2 

GEOMETRIC MEAN = 4.14068084 

GEOMETRIC DEVIATION = 1.72368956 

NUMBER OF OBSERVATIONS? 

18 PRINT "^GEOMETRIC MEAN AND DEVIATION" 

20 PRINT 

30 PRINT "(TO END PROGRAM, ENTER 0>" 

40 PRINT "NUMBER OF OBSERVATIONS"; 

50 INPUT N 

59 REM - TEST FOR END OF PROGRAM 

60 IF N=0 THEN 200 

69 REM - COMPUTE WHICH ROOT TO USE 

70 P=l/N 
80 M=l 

90 FOR 1=1 TO N 
100 PRINT "ITEM"; I. : 
110 INPUT D 

119 REM - ITERATIVELV COMPUTE MEAN 

120 M=M#DtP 

129 REM - ACCUMULATE INTERMEDIATE TERM FOR DEVIATION 

1 30 Q=Q+LOG ( D > T2 
140 NEXT I 

149 REM - COMPUTE DEVIATION 

1 50 R=EXP ( SQR ( Q/ ( N- 1 > - ( N/ ( N- 1 ) * ( LOG ( M ) > T2 > > > 
16© PRINT "GEOMETRIC MEAN =";M 

170 PRINT "GEOMETRIC DEVIATION =";R 

ISO PRINT 

189 REM - RESTART PROGRAM 

196 GOTO 40 

200 END 
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Binomial Distribution 



This program calculates the probability of obtaining a given number of successes in a given number of Ber- 
noulli trials. You must provide the probability of success on a single trial. 

Examples: 

What is the probability of getting three heads in five tosses of a fair coin? 

What is the probability that in five rolls of a fair die, a one (1) appears twice? 

BINOMIAL DISTRIBUTION 

<T0 END PROGRAM ENTER @> 
NUMBER OF TRIALS? 5 
EXACT NUMBER OF SUCCESSES? 3 
PROBABILITY' OF SUCCESS? .5 

PROBABILITY OF 3 SUCCESSES 
IN 5 TRIALS = .3125 

NUMBER OF TRIALS? 5 

EXACT NUMBER OF SUCCESSES? 2 

PROBABILITY OF SUCCESS? .16666666? 

PROBABILITY OF 2 SUCCESSES 
IN 5 TRIALS = .168751029 

NUMBER OF TRIALS? 

10 PRINT "HBINOMIAL DISTRIBUTION" 

20 PRINT 

30 DIM M<3> 

40 PRINT "<T0 END PROGRAM ENTER 0>" 

50 PRINT "NUMBER OF TRIALS"; 

60 INPUT N 

70 IF N=0 THEN 270 

SO PRINT "EXACT NUMBER OF SUCCESSES"; 

90 INPUT X 

100 PRINT "PROBABILITY OF SUCCESS"; 

110 INPUT P 

119 REM - COMPUTE THE FACTORIALS 

120 MU>=N 
130 M<2>=X 
140 M<3>=N-X 
150 FOR 1=1 TO 3 

160 IF Ma>=9 THEN 226 
170 A=l 

ISO FOR J=l TO M<I> 
190 A=A*J 
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206 NEXT J 

210 MCI>=LOG<fl> 

220 NEXT I 

229 REM - USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITV 

23© R=EXP<M<1>-M(2>-M<3>+X*L0G(P>+(N-X>*L0G<1-P>^ 

235 PRINT 

240 PRINT'PROBABILITV OF";,X; 

245 PRINT "SUCCESSES" 

247 PRINT " IN". ;N; "TRIALS =".:R 

250 PRINT 

259 REM - RESTART PROGRAM 

26© GOTO 50 

27© END 
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Poisson Distribution 



Using the Poisson distribution this program calculates the probability of an event occurring a given number 
of times. You must know the expected frequency of the event. 

Example: 

2000 people are injected with a serum. The probability of any one person having a bad reaction is .001. Thus 
we can expect two (.001 • 2000=2) individuals will suffer a bad reaction. What is the probability that four people 
will have bad reactions? Only one person? 

POISSON DISTRIBUTION 

<T0 END PROGRAM ENTER 0> 

CALCULATED FREQUENCV? 2 
TEST FREQUENCV? 4 
PROBABILITY OF 4 
OCCURRENCES = .0902235222 

CALCULATED FREQUENCV? 2 
TEST FREQUENCV? 1 
PROBABILITY OF 1 
OCCURRENCES = .270678566 

CALCULATED FREQUENCV? 6 



18 PRINT "."POISSON DISTRIBUTION" 

15 PRINT 

20 PRINT "<T0 END PROGRAM ENTER @>" 

30 PRINT 

40 PRINT "CALCULATED FREQUENCV"; 

50 INPUT L 

59 REM - END PROGRAM? 

60 IF L=0 THEN 18© 

70 PRINT "TEST FREQUENCV"; 
SO INPUT X 

89 REM - COMPUTE FACTORIAL 

90 A=l 

100 FOR 1=1 TO X 
110 A=A#I 
120 NEXT I 

129 REM - COMPUTE PROBABILITY 

130 A=L0G<A> 

140 A=EXP<-L+X*LOG<L>-A> 
150 PRINT "PROBABILITY 0F";X 
160 PRINT "OCCURRENCES =";A 
169 REM - RESTART PROGRAM 
178 GOTO 30 
130 END 
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Normal Distribution 



This program calculates the probability and frequency of given values on a standard normal distribution 
curve. You can use non-standard variables if you know the mean and standard deviation. 




X 

Standard normal distribution 

The shaded area represents the probability of x . y corresponds to the frequency of x . 
The normal probability is approximated using the following formula: 
probability = 1 -r{a,t + a 2 t 2 + a 3 t 3 ) + e(x) 

where: a, = .4361836 
a 2 = -.1201676 
a 3 = .9372980 
r = (e-^ 2 /2)(2 7 r)- 1 /* 
t = (1+.3326x)- 1 
l«(x)| < 10" 5 

Example: 

The mean weight of the male students at a college is 150 pounds. The standard deviation is 15 pounds If 
the weights are normally distributed, what is the probability that a student weighs between 150 and 180 pounds? 
Between 130 and 150 pounds? 

NORMAL DISTRIBUTION 

< 0=STANDflRD , 1 =NON-STflNDflRD > 
WHICH TVPE OF VARIABLE? 1 
MEAN? 156 
STANDARD DEVIATION? 15 

<T0 END PROGRAM X-99999) 
X =? 186 

FREQUENCY = .0539909665 
PROBABILITY = .977241178 

X =? 130 

FREQUENCY = .164010074 

PROBABILITY = .908798028 

X =? 99999 
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18 PRINT " FORMAL DISTRIBUTION" 

29 PRINT 

:-:0 PR INT " < 0=STflNDflRD , 1 =NON-ST AND ARD > " 

4« PRINT "WHICH TVPE OF VARIABLE"; 

50 INPUT S 

%% REM b - W LINES 7@ k T0 110 REQUEST 'NON-STANDARD' VARIABLE DATA 

70 PRINT "MEAN"; 

80 INPUT M 

90 PRINT "STANDARD DEVIATION"; 

100 INPUT S 

110 GOTO ISO 

120 S=l 

130 PRINT 

140 PRINT "<TO END PROGRAM X=99999>" 

150 PRINT "X ="; 

160 INPUT X 

170 IF X=99999 THEN 290 

180 x=ABsa:x-M>/s> 

1 90 R=EXP < - < X 12 > /2 > /2 . 5066282746 

200 PRINT " FREQUENCY =".:R 

210 Z=X 

220 T= 1 / a + . 33267*ABS < X > ) 

2.^fi T= 1 -P* < . 436 1 336*T- .1201 67*T 12+ . 937298*T t3 > 

240 IF Z>=0 THEN 260 

250 T=l-T 

260 PRINT "PROBABILITV =";T 

270 PRINT 

279 REM - RESTART PROGRAM 

280 GOTO 150 
290 END 
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Chi-square Distribution 



This program calculates the tail-end value for points on a chi-square ( X 2 ) distribution curve. You must pro- 
vide the value of X 2 and the degrees of freedom. 




x 2 

Chi-square distribution 



The shaded area represents the tail-end value of X 2 . 

The X 2 distribution function is calculated using the following formulas: 

(X 2 )(f + D/2 . e -x 2 /2 / 2 \ Vt 



with v odd, tail-end value = 1 - 



with v even, tail-end value - 1 



1 '3 «5... • V \X 2 7T 

(X 2 )v/2 . e -x 2 /2 



2 • 4 «... v 

where: v - degrees of freedom 

oo (X 2 )m 

Z = 1 + 2 

/n = 1 (/ +2) .(v +4)....( v +2m) 



n.vt flZ e tf T SUmmati °u in th e calculation of Zcannot actually extend to infinity, we stop summation when the 
next term is less than a chosen level of precision. The computational precision is limited to approximately 10' 7 . 
Example: 

m-iJ? a 9r ° U ^°! 168 u peo P' e wh0 complained they did not sleep well, 54 were given sleeping pills and the re- 
mainder received placebos. They were later asked whether or not the pills had helped them sleep The X 2 statistic 
for this study was computed to be 2.571 108 with one degree of freedom. What is the tail-end value? 



CHI-SQUflRE DISTRIBUTION 

<T0 END PROGRAM ENTER @> 
DEGREES OF FREEDOM? 1 
CHI-SQUflRE? 2.571108 
TAIL END VALUE = .188831483 

DEGREES OF FREEDOM? 
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10 PRINT "XHI-SQUARE DISTRIBUTION" 

26 PRINT 

30 PRINT "<TO END PROGRAM ENTER 0>" 

40 PRINT "DEGREES OF FREEDOM"; 

50 INPUT V 

60 IF V=0 THEN 280 

70 PRINT "CHI -SQUARE".: 

SO INPUT W 

89 REM - R=DENOMINATOR PRODUCT 

90 R=l 

100 FOR I=V TO 2 STEP -2 

110 R=R*I 

120 NEXT I 

129 REM - K=THE NUMERATOR PRODUCT 

13© K=Wt(INT<<V+l)/2>>#EXP<-W/2>/R 

139 REM - THE PI FACTOR IS USED ONLV WHEN DEGREES OF FREEDOM ARE ODD 

140 IF INT<:V/2>=V/2 THEN 170 
ISO J=SQR<2/W/tr) 

160 GOTO ISO 

169 REM - L < SUMMATION FACTOR) CALCULATED LINES 170-24© 

170 J=l 
ISO L=l 
190 M=l 
200 V=V+2 
210 M=M#W/V 

21^ REM - CHECK FOR END OF SUMMATION 

220 IF M<. 0000001 THEN 250 

230 L=L+M 

240 GOTO 200 

250 PRINT "TAIL END VALUE =".: 1-J*K*L 

260 PRINT 

269 REM - RESTART PROGRAM 

270 GOTO 40 
230 END 



OPTION 

You may wish to compute the percentile rather than the tail-end value. This value corresponds to the 
unshaded area in the figure above. The program changes necessary are listed following the example below. 

Example: 

What is the percentile in the example above? 

CH I -SQUARE D I STR I BUT I ON 

<TO END PROGRAM ENTER 0) 
DEGREES OF FREEDOM? 1 
CHI -SQUARE? 2.571108 
PERCENT I LE= . 89 1 1 685 1 7 

DEGREES OF FREEDOM? 
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1 REM - OPTION 256 

10 PRINT 'TEH I -SQUARE DISTRIBUTION" 



240 GOTO 200 

250 PRINT "PERCENTILE =";J*K*L 

260 PRINT 

269 REM - RESTART PROGRAM 

278 GOTO 40 

280 END 
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Chi-square Test 



This program calculates the chi-square ( X 2 ) statistic and degrees of freedom associated with a given con- 
tingency table. The expected value for each cell and X 2 contribution from each cell are also printed. 

The dimension statement at line 30 limits the size of the contingency table. You can change the dimensions 
according to the following scheme: 

30 DIM VM/?-C>, V2(C>, A<fl> 

where: R = number of rows in the contingency table 

C = number of columns in the contingency table 



Example: 

Of a group of people who complained they could not sleep well, some were given sleeping pills while others 
were given placebos. Later they were asked whether or not the pills had helped them sleep. The results are 
detailed in the table below. What is the value of the X 2 statistic? 



slept 
well 



slept 
poorly 



sleeping pill 
placebo 



44 


10 


81 


35 



30 DIM VK4>A'<2>,fl<2) 
RUN 

CHI -SQUARE TEST 

NUMBER OF ROWS? 2 
NUMBER OF COLUMNS? 2 
CONTINGENCY TABLE: 
ROW 1 

ELEMENT 1 ? 44 
ELEMENT 2 ? IS 
SOW 2 



ELEMENT 1 ? 81 
ELEMENT 2 ? 35 




OBSERVED 


EXPECTED CHIT2 CONTRIBU" 


COLUMN 1 
44 
81 


39.7S58824 
85.2941177 


.362549019 
. 168772821 


COLUMN 2 

10 

35 


14.2941176 
30.7058824 


1.00708061 
.468813387 



CHI-SQUARE = 2.00721584 
DEGREES OF FREEDOM = 1 
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18 PRINT "IXHI SQUARE TEST" 

29 PRINT 

28 REM - LIMIT SIZE OF CONTINGENCV TABLES TO VKR*C>, V2CC) . fl<P> ; 
k"9 REM - WHERE R=HUMEER OF ROWS, C=NUMBER OF HOLUMNS ' ' 
38 DIM V1<25>,V2<2>,A<2> -ui-uiw. 

48 PRINT "NUMBER OF ROWS"; 

49 REM - INPUT CONTINGENCV TABLE LINES 50 TO 150 

50 INPUT R 

60 PRINT "NUMBER OF COLUMNS"; 

70 INPUT C 

SO PRINT "CONTINGENCV TABLE:" 

30 FOR 1=1 TO R 
180 PRINT "ROW"; I 
110 FOR ,T=1 TO C 

120 PRINT " ELEMENT"; J ; 
138 INPUT Vl<a-l)*C+J> 
148 NEXT J 
150 NEXT I 
160 PRINT 

169 REM - ABB UP MARGINAL FREQUENCIES FOR EACH ROW 

170 L=0 
ISO M=l 

198 FOR 1=1 TO R 
208 FOR J=l TO C 
218 fl(D=fi(D+Vl(M) 
228 M=M+1 
238 NEXT J 
240 L=L+A<I> 
258 NEXT I 

268 N=R#C 

269 REM - ABB UP MARGINAL FREQUENCIES FOR EACH COLUMN 
278 FOR 1=1 TO C 

280 FOR J=I TO N STEP C 

90 V2 < I ) = V2 (D+VKJ > 
300 NEXT J 
310 NEXT I 
320 Z=8 

338 PRINT " OBSERVES ";" EXPECTEB "; 
331 PRINT "CHIt2 CONTRIBUTION" 
348 FOR 1=1 TO C 
358 PRINT " COLUMN"; I 

368 FOR J=l TO R 

369 REM - P=EXPECTED CELL VALUE 
378 P=A<J>*V2<I>/L 

375 X=I+<J-1>#C 

£g SI"" ^uS 1 !^ C0RRECTI0N F0R CONTINUITV IN 2 X 2 CHI-SQUARE TE3 
o80 IF ROk THEN 390 

381 IF CC2 THEN 398 

382 V= ( ABS < V 1 < X ) -P > - . 5 > T2/P 

383 GOTO 488 

389 REM - V=CHI-SQUARE CONTRIBUTION FROM THIS CELL 

390 V=<VKX>-P>12/P 

399 REM - Z=TOTAL CHI-SQUARE VALUE 

400 Z=Z+V 

410 PRINT TAB<3>;VKX>; TABOO) ;P; 

411 PRINT TAB<24);V 
420 NEXT J 
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c 



438 NEXT I 




44@ PRINT 




450 PRINT 


"CHI -SQUARE =".:Z 


460 PRINT 


"DEGREES OF FREEDOM ="; 


461 PRINT 


<C-1>*<R-1> 


470 END 
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Student's t -distribution 



This program calculates right-tail values for points on a t -distribution curve. You must provide the value of f 
and the degrees of freedom. 




t 

Student's t -distribution 

The shaded area represents the right-tail value for t . 

The right-tail value is approximated using the following formula: 

right-tail value = ^(1 + a , x + a 2 x 2 + a 3 x 3 + a 4 x 4 ) ' 4 + e (x ) 

where: a, = .196854 

a 2 = .115194 

a 3 = .000344 

a 4 = .019527 

* - *"(l-&)-D(f +**•£)-* 
d = degrees of freedom 

I € (x ) | < 2.5 • 10-* 
Examples: 

What is the right-tail value when the t -value is 2.921 and there are 16 degrees of freedom? 
What is the right-tail value when the t -value is 11.178 and there are 5 degrees of freedom? 

STUDENT'S T-DISTRIBUTION 

<T0 END PROGRAM ENTER ©> 
T VALUE? 2.921 
DEGREES OF FREEDOM? 16 
RIGHT TAIL VALUE = 9.7E-64 

T VALUE? 11.178 
DEGREES OF FREEDOM? 5 
RIGHT TAIL VALUE = 4E-85 

T VALUE? Q 
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18 PRINT "^STUDENT'S T-DISTRIBUTION" 

26 PRINT 

36 PRINT "(TO END PROGRAM ENTER u>" 

40 PRINT "T VALUE"; 

50 INPUT T 

60 IF T=0 THEN 340 

70 PRINT "DEGREES OF FREEDOM"; 

80 INPUT D 

90 X=l 

100 V=l 

1 1 G\ T=T 'f 

119 rEm - COMPUTE USING INVERSE FOR SMALL T-VALUES 

120 IF TCI THEN 170 
130 S=V 

140 R=D 

ISO Z=T 

160 GOTO 200 

170 S=D 

180 R=V 

190 2=1/T 

200 .J=2/9/S 

210 K=2/9/R 

-•1^ REM - COMPUTE USING APPROXIMATION FORMULAS 

220 L= ABS < < 1 -K > *Z t< 1 /3 > - 1 + J > /SQR < K*Z t< 2/3 > + J > 

230 IF R<4 THEN 270 ,,«,-,. ^*„ 

24fi X= . 5/ < 1 +L* < . 1 96854+L* (.1151 94+L* < . 000344+L* . 1 95*'7 > > > > T4 

250 X= I NT (. X* 1 0000+ . 5 > / 1 00000 

260 GOTO 290 

270 L=L* a + . 08*L t4/R 13 > 

280 GOTO 240 

289 REM - ADJUST IF INVERSE WAS COMPUTED 

290 IF T>=1 THEN 310 
300 X=l-X 

310 PRINT "RIGHT TAIL VALUE =";X 

qOQ pp J f..| J 

329 REM - RESTART PROGRAM 

330 GOTO 40 
340 END 
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Student's t- distribution Test 



This program calculates the f -statistic and degrees of freedom for Student's distribution. The calculations 
can be based on any one of three hypotheses. 

The first hypothesis assumes that one population mean is equal to a given value. You must enter the ele- 
ments of the sample and the value of the mean. 

The remaining hypotheses compare two populations. In both tests the means of the two populations are 
equal, but the standard deviations may be equal or unequal. For these hypotheses you must enter the elements of 
each sample. 

The dimension statement at line 30 limits the size of the samples you may enter. You can change the limit 
according to the following scheme: 

30 DIM P(/V,£) 

where N = maximum sample size. 

Examples: 

A sample of children's IQ's was taken, the results being 101, 99, 120, 79, 111, 98, 106 112 87 and 97 
Calculate the t -statistic assuming the population mean is 100. ' 

A second sample was taken, the results being 101, 95, 130, 150, 75, 79, 1 1 1, 100, 98 and 91. Calculate the 
f -statistic based on the hypothesis that the two samples have equal means and standard deviations. 

STUDENT'S T-DISTRIBUTION TEST 



TEST 1 
TEST 2 
TEST 3 



MEAN=X 

MEAN=MEAN,SD=SD 
MEAN=MEAN, SDOSD 



WHICH HVPOTHESIS ? 1 

SAMPLE 1 : 
NUMBER OF ELEMENTS ? 19 
ELEMENT 1 ? 181 
ELEMENT 2 ? 99 
ELEMENT 3 ? 128 
ELEMENT 4 ? 79 
ELEMENT 5 ? Ill 
ELEMENT 6 ? 98 
ELEMENT 7 ? 186 
ELEMENT 8 ? 112 
ELEMENT 9 ? 87 
ELEMENT 18 ? 97 

VALUE OF MEAN? 188 

T-VALUE - .26151383 
DEGREES OF FREEDOM = 9 
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STUDENT'S T-DISTRIBUTION TEST 



TEST 1 
TEST 2 
TEST 3 



MEAN=X 

MEAN=MEAN,SD=SD 

MEAN=MEAN..SDOSB 



WHICH HYPOTHESIS ? 2 - 

SAMPLE 1 : ' 
NUMBER OF ELEMENTS ? 10 

ELEMENT 1 ? 181 

ELEMENT 2 ? 99 

ELEMENT 3 ? 128 

ELEMENT 4 ? 79 

ELEMENT 5 ? Ill 

ELEMENT 6 ? 98 

ELEMENT 7 ? 196 

ELEMENT 8 ? 112 

ELEMENT 9 ? 87 

ELEMENT IS ? 97 
SAMPLE 2 : 
NUMBER OF ELEMENTS ? 18 

ELEMENT 1 ? 181 

ELEMENT 2 ? 95 

ELEMENT 3 ? 138 

ELEMENT 4 ? 158 

ELEMENT 5 ? 75 

ELEMENT 6 ? 79 

ELEMENT 7 ? Ill 

ELEMENT 8 ? 188 

ELEMENT 9 ? 98 

ELEMENT 18 ? 91 



T- VALUE = .24651528 
DEGREES OF FREEDOM = 18 



18 PRINT "STUDENT'S T-DISTRIBUTION TEST" 

28 PRINT 

29 REM - LIMIT SAMPLE SIZE TO P<N,2> WHERE N=MAXIMUM SAMPLE SIZE 

38 DIM P<18,2> 

48 DIM V<2>,RC2>,M<2>,D<2> 

58 PRINT "TEST 1: MEAN=X" 

60 PRINT "TEST 2- MEAN=MEAN,SD=SD" 

78 PRINT "TEST 3: MEAN=MEAN,SDOSD" 

88 PRINT -PRINT "WHICH HYPOTHESIS "; 

98 INPUT T 

100 PRINT 

189 REM - INPUT 1 OR 2 SAMPLES DEPENDING ON HYPOTHESIS 

110 FOR 1=1 TO SGN<T-1>+1 

120 V(I)=0 

130 Da>=8 

148 PRINT "SAMPLE"; I;":" 

150 PRINT " NUMBER OF ELEMENTS "; 

160 INPUT R<I> 

170 FOR J=l TO R<I> 
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186 PRINT " ELEMENT"; J; 

190 INPUT P<J,I> 

19? REM - ACCUMULATE SAMPLES 

20© V<I>=V<I>+P<J,I) 

210 D<I>=IKI>+P<J, 1)12 

220 NEXT J 

229 REM - COMPUTE INTERMEDIATE VALUES 

230 M<I>=V<I)/R<I> 

240 V<I)=<D<I>-V<I>T2/R<I>,V<R<I>-1> 

250 NEXT I 

260 PRINT 

270 IF T=2 THEN 340 

280 IF T-3 THEN 380 

289 REM - INPUT GIVEN VALUE FOR FIRST HVPOTHESIS 

290 PRINT "VALUE OF MEAN"; 

308 INPUT M 

309 REM - COMPUTE T AND DEGREES OF FREEDOM FOR FIRST HYPOTHESIS 

310 A=<Ma>-M>*SQR<R<l>/Va>> 
320 B=R<n-l 

330 GOTO 428 

339 REM - COMPUTE T AND DEGREES OF FREEDOM FOR SECOND HVPOTHESIS 

340 A=<M< 1 >-M<2> >/SQR< 1/R< 1 >+l/R<2> > 
350 B=Ra>+R<2>-2 

360 A=A/SQR<<<R<:i>-l>*V<n+<:R<2>-l>*V<:2>>/BJ 
370 GOTO 428 

379 REM - COMPUTE T AND DEGREES OF FREEDOM FOR THIRD HVPOTHESIS 
38© A=<M<1>-M<2>>/SQR<V<1>/R<1>+VC2>/R<2>> 
390 B=(V< 1 ,VR< 1 >+V<2.VR<2> > t2 

408 B=B/(<:va>/Ra>)t2/<Ra> + l>+<:V<2>/R<2>>t2/<Rc-2>+l>>-2 

410 B=INKB+.5> 

42© PRINT 

430 PRINT "T-VALUE =";ABS<A> 

440 PRINT "DEGREES OF FREEDOM =";B 

450 END 
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F -distribution 



This program calculates percentile values for given values on an F -distribution curve. You must provide the 
value of F, the degrees of freedom in the numerator and the degrees of freedom in the denominator. 




F 

The F -distribution 

The area of the shaded region represents the percentile. 

The F -distribution function is approximated using the following formula: 
percentile = 1 - 2 + a i K + a 2 K 2 + « 3 K 3 + a 4 K 4 )~ 4 + € <k) 

where: a, = .196854 
a 2 = .115194 
a 3 = .000344 
a 4 = .019527 

2 2 _2_ 2 

y = (/ rl/3 (i-i^ 2 )-(i- 9f/l ))(9c/ 1 + ' :/3 -9(y 2 )- /2 

d , = degrees of freedom in numerator 
d 2 = degrees of freedom in denominator 

| c (y ) | < 2.5 x 10" 4 

Examples: 

What is the percentile on an F -distribution curve when the F -value is .474 and the degrees of freedom are 
1 and 18? 

What is the percentile when the F -value is 23.7 and the degrees of freedom are 3 and 6? 

F-DISTRIBUTION 

CTO END PROGRAM ENTER @> 

F-VflLUE? .474 

DEGREES OF FREEDOM IN NUMERATOR? 1 

DEGREES OF FREEDOM IN DENOMINATOR? 18 

PERCENTILE = .4937 

F- VALUE? 23.7 

DEGREES OF FREEDOM IN NUMERATOR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
PERCENTILE = .9984 

F-VALUE? 
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19 PRINT "IT-DISTRIBUTION" 

20 PRINT 

30 PRINT "(TO END PROGRAM ENTER 0>" 

40 PRINT "F- VALUE "; 

50 INPUT F 

60 IF F=0 THEN 348 

70 PRINT "DEGREES OF FREEDOM "; 

71 PRINT "IN NUMERATOR"; 
30 INPUT Dl 

90 PRINT "DEGREES OF FREEDOM "; 

91 PRINT "IN DENOMINATOR"; 
108 INPUT D2 

110 X=l 

119 REM - COMPUTE USING INVERSE FOR SMALL F-VALUES 

128 IF F<1 THEN 178 

130 S=D1 

140 T=D2 

150 Z=F 

ISO GOTO 280 

178 S=D2 

138 T=D1 

190 Z=l/F 

280 J=2/9/S 

218 K=2/9/T 

219 REM - COMPUTE USING APPROXIMATION FORMULAS 
228 V= ABS < < 1 -K > *Z t< 1 /3 ) - 1 + J > /SQR C K*Z tC 2/3 ) + J > 
238 IF T<4 THEN 278 

248 X=.5/a+V*<. 196354+V*<. 115194+V*<.000344+V#.019527>>>>t4 

258 X= I NT < X* 1 0888+ . 5 > / 1 8000 

268 GOTO 298 

278 V= V* < 1 + . 08* V 14/T 13 > 

280 GOTO 240 

289 REM - ADJUST IF INVERSE WAS COMPUTED 

298 IF F>=1 THEN 310 

.■-I0PI V= 1—V 

310 PRINT "PERCENTILE =";1-X 
cjopi ppjHT 

329 REM - RESTART PROGRAM 

330 GOTO 40 
348 END 



OPTION 



You may prefer to compute the tail-end value (the area of the unshaded region in the figure above). The pro- 
gram changes necessary are listed following the examples below. 

Examples: 

What is the tail-end value on an F -distribution curve when the F -value is .474 and the degrees of freedom 
are 1 and 18? 

What is the tail-end value when the F -value is 23.7 and the degrees of freedom are 3 and 6? 
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F-DISTRIBUTION 

<TO END PROGRAM ENTER @> 

F-VflLUE? .474 

DEGREES OF FREEDOM IN NUMERATOR? 1 

DEGREES OF FREEDOM IN DENOMINATOR? 18 

TAIL END VALUE = .5063 

F- VALUE? 23.7 

DEGREES OF FREEDOM IN NUMERATOR? 3 
DEGREES OF FREEDOM IN DENOMINATOR? 6 
TAIL END VALUE = 1.6E-03 

F-VALUE? O 



1 REM - OPTION 310 

10 PRINT "IT-DISTRIBUTION" 



300 X=l-X 

310 PRINT "TAIL END VALUE = M ;X 

320 PRINT 

329 REM - RESTART PROGRAM 

330 GOTO 40 
340 END 
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Linear Correlation Coefficient 



This program computes the coefficient of correlation between two variables. A linear relationship is 
assumed between the variables. You must enter the coordinates of a group of data points forming the regression 
line. 

Example: 

The height of twelve men and their sons is recorded in the table below. What is the coefficient of correlation 
between the heights of fathers and the heights of their sons? 



father 


65 


63 


67 


64 


68 


62 


70 


66 


68 


67 


69 


71 


son 


68 


66 


68 


65 


69 


66 


68 


65 


71 


67 


68 


70 



height in inches 



LINEAR CORRELATION COEFFICIENT 



NUMBER 


OF POINTS' 


? 12 


x,v OF 


POINT 1 ? 


£>5, DO 


X,Y OF 


POINT 2 ? 


63,66 


X,Y OF 


POINT 3 ? 


67,68 


X,V OF 


POINT 4 ? 


64,65 


X,Y OF 


POINT 5 ? 


68,69 


X,Y OF 


POINT 6 ? 


62,66 


X,Y OF 


POINT 7 ? 


78,68 


X,Y OF 


POINT 3 ? 


66. , 65 


X,V OF 


POINT 9 ? 


68,71 


X,Y OF 


POINT 10 - 


* 67,67 


X,V OF 


POINT 11 ? 69,68 


X,V OF 


POINT 12 - 


> 71,78 



COEFFICIENT OF CORRELATION = .782652258 



18 PRINT "a. I NEAR CORRELATION COEFFICIENT" 

28 PRINT 

38 PRINT "NUMBER OF POINTS"; 

48 INPUT N 

99 REM - ENTER COORDINATES OF DATA POINT?: 

108 FOR 1=1 TO N 

110 PRINT "K,V OF POINT"; I: 

120 INPUT X,V 

129 REM - ACCUMULATE INTERMEDIATE VALUES 

130 J=J+tt 

140 k=k:+v 

150 L=L+Xt2 

160 M=M+VT2 

176 R=R+X*V 

180 NE^'T I 

189 REM - CALCULATE COEFFICIENT, PRINT 
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1 90 R2= < N*R- J*K > /SQR < < N*L- J 12 > * < N*M-K 12 > > 

2@0 PRINT 

210 PRINT "CORRELATION COEFFICIENT ="; 

215 PRINT Ri 

220 END 



12 
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Linear Regression 



This program fits a straight line to a given set of coordinates using the method of least squares. The equa- 
tion of the line, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 
Once the line has been fitted, you may predict values of y for given values of x . 



Example: 

The table below shows the height and weight of 1 1 male college students. Fit a curve to these points. How 
much would the average 70" and 72" male student weigh? 

height (in.) 
weight (lbs.) 



71 


73 


64 


65 


61 


70 


65 


72 


63 


67 


64 


160 


183 


154 


168 


159 


180 


145 


210 


132 


168 


141 



LINEAR REGRESSION 



NUMBER 
X,Y OF 
X,V OF 
X,V OF 
X,Y OF 
X,Y OF 
X,V OF 
X,V OF 
X,V OF 
X,Y OF 
X,V OF 
X,V OF 



OF KNOWN POINTS? 11 
POINT 1 ? 71,160 



POINT 2 
POINT 3 
POINT 4 
POINT 5 
POINT 6 
POINT 7 
POINT 8 
POINT 9 



? 73,183 
? 64, 154 
? 65,168 
? 61,159 
? 78,180 
? 65,145 
? 72,210 
? 63,132 



POINT 10 ? 67,168 
POINT 11 ? 64,141 



FCX>=-186. 791727 + < 4.04722312 # X> 

COEFFICIENT OF DETERMINRTI0N<R12>= .556260313 

COEFFICIENT OF C0RRELfiTI0N= .745823608 

STflNDRRB ERROR OF ESTIMATE^ 15.4134854 

INTERPOLATION: <ENTER X=8 TO ENB> 
X =? 70 

V = 176.513892 

V =184.608338 



X =? 
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10 PRINT "."LINEAR REGRESSION" 
28 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"; 
40 INPUT N 

99 REM - LOOP TO ENTER COORDINATES OF POINTS 

100 FOR 1=1 TO N 

110 PRINT "X,V OF POINT"; I. : 
120 INPUT X,V 

129 REM - ACCUMULATE INTERMEDIATE SUMS 

130 J=J+X 
140 K=K+V 
150 L=L+X12 
160 M=M+VT2 
170 R2=R2+X*V 

iso next i 

189 rem - compute curve coefficient 

1 90 33= < n*r2-k# j > / < n*l- j t2 > 
200 a=<k-b*j:vn 

210 PRINT 

220 PRINT "F<X>=";A;"+ <";B;"* X)" 

229 REM - COMPUTE REGRESSION ANAVLVSIS 

230 J=B*<R2-J*K/N> 
240 M=M-Kt2/N 

250 K=M-J 
260 PRINT 
270 R2=J/M 

280 PRINT "COEFFICIENT OF "; 

281 PRINT "DETERMINATION"; 

282 PRINT "<Rt2>= ";R2 

283 PRINT 

290 PRINT "COEFFICIENT OF "; 

29 1 PR I NT " CORREL AT I ON= " ; SQR ( R2 ) 

292 PRINT 

300 PR I NT "STANDARD ERROR OF ESTIMATE*"; 

301 PRINT SQR<K/<N-2>> 
310 PRINT 

319 REM - ESTIMATE V-COORDINATES OF POINTS WITH ENTERED X-COORDINATES 

320 PRINT "INTERPOLATION: "; 

321 PRINT "(ENTER X=0 TO END>" 
330 PRINT "X ="; 

340 INPUT X 

349 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

350 IF X=0 THEN 390 
360 PRINT "V =";A+B*X 
370 PRINT 

380 GOTO 330 
390 END 
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Multiple Linear Regression 



This program finds the coefficients of a multiple variable linear equation using the method of least squares. 
The equation is of the following form: 

y = c + a l x 1 +a 2 x 2 + ...a n x n 

where: y = dependent variable 
c = constant 
a v a 2 . . . a n = coefficients of independent variables x v x 2 , . . . x n 



The constant and the coefficients are printed. 

You must provide the x - and y -coordinates of known data points. Once the equation has been found using 
the data you enter, you may predict values of the dependent variables for given values of the independent varia- 
bles. 

The dimension statement at line 30 limits the number of known data points the equation may contain. You can 
change this limit according to the following scheme: 

30 DIM X(yV+/), SiN+1), T(/V+7>, kiN+LN + 2) 
where N - the number of known data points. 

Example: 

The table below shows the age, height and weight of eight boys. Using weight as the dependent variable, fit 
a curve to the data. Estimate the weight of a seven year old boy who is 51 inches tall. 



age 


8 


9 


6 


10 


8 


9 


9 


7 


height 


48 


49 


44 


59 


55 


51 


55 


50 


weight 


59 


55 


50 


80 


61 


75 


67 


58 



MULTIPLE LINEAR REGRESSION 

NUMBER OF KNOWN POINTS? 8 

# OF INDEPENDENT VARIABLES? 2 

POINT 1 
VARIABLE 1 ? 8 
VARIABLE 2 ? 48 
DEPENDENT VARIABLE? 59 

POINT 2 
VARIABLE 1 ? 9 
VARIABLE 2 ? 49 
DEPENDENT VARIABLE? 55 
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POINT 3 
VARIABLE 1 ? 6 
VARIABLE 2 ? 44 
DEPENDENT VARIABLE? 56 

POINT 4 

VARIABLE 1 ? 18 

VARIABLE 2 ? 59 

DEPENDENT VARIABLE? SO 
POINT 5 

VARIABLE 1 ? 8 

VARIABLE 2 ? 55 

DEPENDENT VARIABLE? 61 
POINT 6 

VARIABLE 1 ? 9 

VARIABLE 2 ? 51 

DEPENDENT VARIABLE? 75 
POINT 7 

VARIABLE 1 ? 9 

VARIABLE 2 ? 55 

DEPENDENT VARIABLE? 67 
POINT 8 

VARIABLE 1 ? 7 

VARIABLE 2 ? 58 

DEPENDENT VARIABLE? 58 

EQUAT I ON COEFF I C I ENTS : 



CONSTANT 
VARIABLES 1 > 
VARIABLES 2 > 



3.68885106 
.943262412 



COEFFICIENT OF DETERMINATION 

<RT2> = .715697484 
COEFFICIENT OF MULTIPLE 
CORRELATION = .845989009 
STANDARD ERROR OF ESTIMATE = 6.42887917 

INTERPOLATION: (ENTER 9 TO END PROGRAM) 

VARIABLE 1 ? 7 

VARIABLE 2 ? 51 

DEPENDENT VARIABLE = 58.1702128 



VARIABLE 1 ? O 



10 PRINT "MULTIPLE LINEAR REGRESSION" 
20 PRINT 

29 REM - SET ARRAY LIMITS TO X<N+1>, S<N+1>, T<N+I>, A<N+l,N+2> 

30 DIM X<9>,S<9>,T<9>,A<9, 10> 

40 PRINT "NUMBER OF KNOWN POINTS"; 

58 INPUT N 

60 PRINT "# OF INDEPENDENT VARIABLES"; 

70 INPUT V 

30 X<1>=1 

90 FOR 1=1 TO N 

100 PRINT "POINT"; I 

118 FOR J=l TO V 

119 REM - ENTER INDEPENDENT VARIABLES FOR EACH POINT 
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128 PRINT " VARIABLE" ;J; 
13© INPUT XU+1) 
140 NEXT J 

149 REM - ENTER DEPENDENT VARIABLE FOR EACH POINT 
15© PRINT " DEPENDENT VARIABLE"; 

160 INPUT X<V+2) 

169 REM - POPULATE A MATRIX TO BE USED IN CURVE FITTING 

178 FOR K=l TO V+l 

150 FOR L=l TO V+2 

190 A<K,L)=A<K..L)+X<K)*X<L) 

200 S<K)=A<K,V+2) 

210 NEXT L 

220 NEXT K 

230 S<V+2)=S<V+2)+X<V+2)*2 

240 NEXT I 

248 REM - STATEMENTS 250 TO 500 FIT CURVE BV SOLVING THE SVSTEM OF; 

249 REM - LINEAR EQUATIONS IN MATRIX AO 

250 FOR 1=2 TO V+l 
260 Ta>=A<l,I> 
270 NEXT I 

230 FOR 1=1 TO V+l 

290 J=I 

300 IF A<J,I>O0 THEN 340 

305 J=J+1 

310 IF J<=V+1 THEN 300 

320 PRINT "NO UNIQUE SOLUTION" 

330 GOTO 810 

340 FOR K=l TO V+2 

350 B=fl(LK) 

360 fl(LK)=R<J;K) 

370 A<J,K)=B 

380 NEXT K 

39© Z=l/Aa,I> 

40© FOR K=l TO V+2 

410 Aa,K>=Z*A<I,K> 

420 NEXT K 

430 FOR J=l TO V+l 

440 IF J=I THEN 490 

450 Z=-A<J,I) 

460 FOR K=l TO V+2 

470 A<J,IO=A<J,IO+Z#Aa,K> 

480 NEXT K 

490 NEXT J 

500 NEXT I 

510 PRINT 

520 PRINT "EQUATION COEFFICIENTS'" 

525 PRINT " CONSTANT" "A<1, V+2) 

530 FOR 1=2 TO V+l 

540 PRINT "VARIABLES; I-1;»):";A<I, V+2) 

550 NEXT I 

560 P=0 

570 FOR 1=2 TO V+l 

530 P=P+A< I , V+2)*<S< I )-T< I )*S< 1 )/N) 

590 NEXT I 

600 R=S<V+2)-S<l)t2/N 

610 Z=R-P 

620 L=N-V-1 
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636 

648 
656 
66Q 
661 
665 
670 
675 
680 
681 
690 
€-99 

700 

701 
710 
720 
730 
740 
749 
750 
76© 
770 
730 
790 
799 

800 

810 



I=P/V 

PRINT 

I=P/R 

PRINT "COEFFICIENT OF "; 

PRINT " DETERMINATION " 

PRINT " <R12> =";I 

PRINT "COEFFICIENT OF MULTIPLE" 

PRINT "CORRELATION =".;SQR<I> 

PRINT "STANDARD ERROR OF ESTIMATE"; 

PRINT SQR<AES<2/L>> 

PRINT 

REM - ESTIMATE DEPENDENT VARIABLE FROM ENTERED INDEPENDENT V ARABLES 

PRINT "INTERPOLATION: "; 

PRINT "(ENTER O TO END PROGRAM)" 

P=A<l,V+2> 

FOR J=l TO V 

PRINT "VARIABLE"; J; 

INPUT X 

REM - TEST FOR END OF PROGRAM 

IF X=Q THEN 810 

P=P+AU+1,V+2>*X 

NEXT J 

PRINT "DEPENDENT VARIABLE =";P 

PRINT 

REM - RETURN FOR MORE DATA 

GOTO 710 

END 
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N th Order Regression 



This program finds the coefficients of an N th order equation using the method of least squares. The equa- 
tion is of the following form: 



y = c + a ,x + a 2 x 2 + 



a n x" 



where: y = dependent variable 

c = constant 
a i,a 2. . . a n = coefficients of independent variables x,x 2 ,. . . x" , respectively 

The equation coefficients, coefficient of determination, coefficient of correlation and standard error of estimate 
are printed. 

You must provide the x - and y -coordinates for known data points. Once the equation has been computed 
you may predict values of y for given values of x. 

The dimension statement at line 30 limits the degree of the equation. You can change this limit according to 
the following scheme: 

30 DIM A(2*0+M, RiD+UD + 2) , TiD + 2) 
where D = maximum degree of equation. 



Example: 

The table below gives the stopping distance (reaction plus braking distance) of an automobile at various 
speeds. Fit an exponential curve to the data. Estimate the stopping distance at 55 m.p.h. 

m.p.h. 
stopping distance 



20 


30 


40 


50 


60 


70 


54 


90 


138 


206 


292 


396 



36 DIM A<5>,R<3,4>,T<4> 
RUN 



NTH-ORDER REGRESSION 

DEGREE OF EQUATION? 2 
NUMBER OF KNOWN POINTS? 6 
X/V OF POINT 1 ? 28,54 
X,V OF POINT 2 ? 30,90 
X,V OF POINT 3 ? 40,138 
X,V OF POINT 4 ? 58,206 
X,V OF POINT 5 ? 60,292 
X,V OF POINT 6 ? 70,396 

CONSTANT = 41.7714472 

1 DEGREE COEFFICIENT =-1.09571524 

2 DEGREE COEFFICIENT = .0878571531 
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COEFFICIENT OF DETERMINATION 
<Rt2> = .993927959 

CORRELATION COEFFICIENT = .999963979 
STANDARD ERROR ESTIMATE = 1.420941 06 

INTERPOLATION: (ENTER O TO END> 

X =i f^5 

V =247.274998 

X =? 6 



10 PRINT "IH'TH ORDER REGRESSION" 
20 PRINT 

28 REM - SET LIMITS OF DEGREE OF EQUATION TO A<2D+1>, R<D+l>,D+2>, T<D+2> 

29 REM - < WHERE D=MAXIMUM DEGREE OF EQUATION) 

30 DIM A<13),R<7,8>,T<:S> 

40 PRINT "DEGREE OF EQUATION"; 

50 INPUT D 

60 PRINT "NUMDER OF KNOWN POINTS"; 

70 INPUT N 

80 AC1)=N 

89 REM - ENTER COORDINATES OF DATA POINTS 

90 FOR 1=1 TO N 

100 PRINT "X/V OF POINT"; I; 
110 INPUT X,V 

119 REM - LINES 120 TO 200 POPULATE MATRICES WITH A SVSTEM OF EQUATIONS 

120 FOR J=2 TO 2*D+1 
130 A<J>=A<J)+Xt<J-l) 
140 NEXT J 

150 FOR K=l TO D+l 

1 60 R < K , D+2 ) =T < K > +V*X t< K- 1 > 

170 T<K>=T(K>+V*Xt(K-l) 

180 NEXT K 

190 T<D+2)=KD+2>+V12 

200 NEXT I 

209 REM - LINES 210 TO 490 SOLVE THE SVSTEM OF EQUATIONS IN THE MATRICES 

210 FOR J=l TO D+l 
220 FOR K=l TO D+l 
230 R<J,K)=A<J+K-1> 
240 NEXT K 

250 NEXT J 

260 FOR J=l TO D+l 

270 FOR K=J TO D+l 

280 IF R(K..J>O0 THEN 320 

290 NEXT K 

300 PRINT "NO UNIQUE SOLUTION" 

310 GOTO 790 

320 FOR 1=1 TO D+2 

330 S=RCJ, I> 

340 R<J,I>=R<K, I) 

350 R<K,I>=S 

360 NEXT I 

370 Z=1/R<J,J> 

38© FOR 1=1 TO D+2 

390 R<J,I>=Z#R<CJ,I> 

400 NEXT I 
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410 FOR K=l TO D+l 

426 IF K=J THEN 470 

430 Z=-R<K,J> 

440 FOR 1=1 TO D+2 

450 R<fGI>=R<K, I>+Z*R<J,I> 

460 NEXT I 

470 NEXT K 

480 NEXT J 

490 PRINT 

495 PRINT " CONSTANT ="; 

496 PRINT R<l,D+2> 

499 REM - PRINT EQUATION COEFFICIENTS 
50© FOR J=l TO D 

510 PRINT J; "DEGREE COEFFICIENT =".: 

511 PRINT R<J+l,D+2> 
520 NEXT J 

530 PRINT 

539 REM - COMPUTE REGRESSION ANAL VS IS 

540 p=s0 

550 FOR J=2 TO D+l 

560 P=P+R<J,D+2>*<T<J>-A<.J>*T<1>/N> 

570 NEXT J 

580 Q=T<D+2>-T<l>t2/N 

590 Z=Q-P 

600 I=N-D-1 

62© PRINT 

630 J=P/Q 

640 PRINT "COEFFICIENT OF "; 

641 PRINT "DETERMINATION" 
645 PRINT "<RT2> =";J 

650 PRINT "CORRELATION COEFFICIENT ="; 

651 PRINT SQRCJ) 

66Q PRINT "STANDARD ERROR ESTIMATE =".: 

661 PRINT SQR<Z/I> 

6?& PRINT 

679 REM - COMPUTE V-COORDINATE FROM ENTERED X-CQORDINATE 

630 PRINT " INTERPOLATION •• "; 

681 PRINT "<ENTER O TO END>" 

69Q P=R<l,D+2> 

700 PRINT "X ="; 

710 INPUT X 

720 IF X=0 THEN 79© 

730 FOR J=l TO D 

740 P=P+R<J+l,D+2)*XtJ 

750 NEXT J 

760 PRINT "V =";P 

770 PRINT 

78© GOTO 690 

790 END 
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Geometric Regression 



This program fits a geometric curve to a set of coordinates using the method of least squares. The equa- 
tion, coefficient of determination, coefficient of correlation and standard error of estimate are printed. 

You must provide the x - and y -coordinates of known data points. Once the curve has been fitted you may 
predict values of y for given values of x . 

Example: 

The table below gives the pressures of a gas measured at various volumes in an experiment. The relation- 
ship between pressure and volume of a gas is expressed by the following formula: 

PV K = C 

where. P = pressure 
V = volume 
C and K are constants. 

This formula can be rewritten in standard geometric form: 



P = CV 



-K 



Note the exponent is negative, which accounts for the negative exponents the program calculates. 
Fit a geometric curve to the data and estimate the pressure of 90 cubic inches of the gas. 



volume 
pressure 



56.1 


60.7 


73.2 


88.3 


120.1 


187.5 


57.0 


51.0 


39.2 


30.2 


19.6 


10.5 



GEOMETRIC REGRESSION 

NUMBER OF KNOWN POINTS? 6 
X,V OF POINT 1 ? 56.1,57.0 
X,V OF POINT 2 ? 68.7,51.0 
X,V OF POINT 3 ? 73.2,39.2 
X,V OF POINT 4 ? 88.3,30.2 
X,V OF POINT 5 ? 120.1,19.6 
X,V OF POINT 6 ? 187.5,10.5 

F<X> = 16103.7139 * Xt-1. 40155091 

COEFFICIENT OF DETERMINATION 
<R12) = .999999206 

COEFFICIENT OF CORRELATION = .999999603 



STANDARD ERROR OF ESTIMATE = 6.37591016E-04 
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INTERPOLATION: <X=0 TO END> 

X =? 90 

V = 29.3734983 

X =? O 



10 PRINT "^GEOMETRIC REGRESSION" 
20 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"; 
40 INPUT N 

99 REM - ENTER COORDINATES OF DATA POINTS 

100 FOR 1=1 TO N 

110 PRINT "X,V OF POINT"; I; 
120 INPUT X,V 

129 REM - ACCUMULATE INTERMEDIATE VALUES 

130 V=LOGCt'> 
140 X=LOG(X> 
150 J=,T+X 
160 K=K+V 
170 L=L+Xt2 
ISO M=M+Vt2 
190 R2=R2+X*V 
200 NEXT I 

209 REM - CALCULATE AND PRINT COEFFICIENTS OF EQUATION 

2 1 E= ( N#R2-K* J > / < N*L- J -T2 > 
220 A=<K-B*J>/N 

230 PRINT 

240 PRINT "F<X> =";EXP(A>;"* Xt";E 

249 REM - CALCULATE REGRESSION ANALYSIS 

250 J=B* < R2-J*K/N > 
260 M=M-KT2/N 

270 K=M-J 
280 PRINT 
290 R2=J/M 

300 PRINT "COEFFICIENT OF "; 

301 PRINT "DETERMINATION" 

305 PRINT "<Rt2> =";R2 

306 PRINT 

310 PRINT "COEFFICIENT OF ".; 

311 PRINT "CORRELATION =";SQR<R2) 
315 PRINT 

320 PRINT "STANDARD ERROR OF "; 

325 PRINT "ESTIMATE = ";SGR<K/(N-2V> 

326 PRINT 
330 PRINT 

339 REM - ESTIMATE V-COORDINRTE FROM ENTERED X-COORDINATE 

340 PRINT "INTERPOLATION- "; 

341 PRINT "<X=0 TO ENID" 
350 PRINT "X ="; 

360 INPUT X 

369 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 

37© IF X=0 THEN 410 

380 PRINT "V =";EXP<A)*XTB 

390 PRINT 

399 REM - RETURN FOR MORE DATA 

400 GOTO 350 
410 END 
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Exponential Regression 



This program finds the coefficients of an equation for an exponential curve. The equation is in the following 
form: 

f{ x ) = aebx 
where a and b are the calculated coefficients. 

The equation coefficients, coefficient of determination, coefficient of correlation and standard error of estimate 
are printed. 

You must provide the x - and y -coordinates for known data points. Once the curve has been fitted you may 
predict values of y for given values of x . 



Example: 

The table below shows the number of bacteria present in a culture at various points in time. Fit an exponen- 
tial curve to the data and estimate the number of bacteria after 7 hours. 

number of hours 
number of bacteria 






1 


2 


3 


4 


5 


6 


25 


38 


58 


89 


135 


206 


315 



EXPONENTIAL REGRESSION 



NUMBER 


OF KNOWS 


1 POINTS? 7 


X, 


V 


OF 


POINT 


1 


? 


Q.25 


X, 


V 


OF 


POINT 


2 


"y 


1, 


vjb 


x. 


V 


OF 


POINT 


3 


? 


•*"** 

!=-.' 


58 


X, 


V 


OF 


POINT 


4 


*- f 


3. 


89 


X. 


V 


OF 


POINT 


5 


? 


4, 


135 


v 


V 


OF 


POINT 


6 


•>■> 


5, 


266 


X. 


V 


OF 


POINT 


■7 


•-> 


6; 


315 


A 


= 


24 


.9616634 








B 


s 


.422375881 









COEFFICIENT OF DETERMINATION 

CR12? = .999993572 

COEFFICIENT OF CORRELATION = .999996779 

STANDARD ERROR OF ESTIMATE = 2.53424554E-03 



INTERPOLATION: <X=0 TO END) 

V —■'■> -? 
rt — : i 

V= 480.086716 
X =? 
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10 PRINT "."EXPONENTIAL REGRESSION" 
26 PRINT 

30 PRINT "NUMBER OF KNOWN POINTS"; 

40 INPUT N 

50 J=0 

60 K=0 
70 L=0 
80 M=0 
90 R2=0 

99 REM - ENTER COORDINATES OF DATA POINTS 

100 FOR 1=1 TO N 

110 PRINT "X,V OF POINT"; I; 
120 INPUT X,V 

129 REM - ACCUMULATE INTERMEDIATE VALUES 

130 V=LOG<Y> 
140 J=,T+X 
150 K=K+V 
160 L=L+X12 
170 M=M+V12 
180 R2=R2+X*V 
190 NEXT I 

199 REM - CALCULATE AND PRINT COEFFICIENTSOF EQUATION 

200 B=<N*R2-K*J,V<N*L-Jt2> 
210 A=<K-B*J>/N 

220 PRINT 

230 PRINT" A =";EXP<A) 

240 PRINT "B =";B 

249 REM - CALCULATE REGRESSION TABLE VALUES 

250 J=B*<R2-J*K/N> 
260 M=M-Kt2/N 

270 K=M-,T 
280 PRINT 
290 R2=J/M 

300 PRINT "COEFFICIENT OF "; 

301 PRINT "DETERMINATION" 

305 PRINT "<R12> =";R2 

306 PRINT 

310 PRINT "COEFFICIENT OF "; 

311 PRINT "CORRELATION ="; 

315 PRINT SQR<R2> 

316 PRINT 

320 PRINT "STANDARD ERROR OF "; 

321 PRINT "ESTIMATE =";SQR<K/<N-2}> 
326 PRINT 

330 PRINT 

339 REM - ESTIMATE V-VALUE FROM ENTERED X-VALUE 

340 PRINT " INTERPOLATION •• "; 

341 PRINT "<X=0 TO END)" 
350 PRINT "X ="; 

360 INPUT X 

370 IF X=0 THEN 410 

380 PRINT "V =";EXP<A>*EXP<B*X> 

390 PRINT 

399 REM - RETURN FOR MORE DATA 

400 GOTO 350 
410 END 
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System Reliability 



This program calculates the reliability of an operating system that is subject to wearout and chance failure. 
You must enter the system's operating time and the wearout time and failure rate of each component. 



Example: 

Compute the reliability of a .computer system operating for 1000 hours with the components shown in the 
list below. 

wearout (hrs.) failure 
CPU 

terminal 

disk 

printer 



15,000 


.00020 


3,000 


.00010 


3,000 


.00015 


1,500 


.00015 



SYSTEM RELIABILITY 

<T0 END PROGRAM ENTER 0> 
OPERATING TIME IN HOURS? 
NUMBER OF COMPONENTS? 4 
COMPONENT 1 

AVERAGE WEAROUT TIME? 

AVERAGE FAILURE RATE? 
COMPONENT 2 

AVERAGE WEAROUT TIME? 

AVERAGE FAILURE RATE? 
COMPONENT 3 

AVERAGE WEAROUT TIME? 

AVERAGE FAILURE RATE? 
COMPONENT 4 

AVERAGE WEAROUT TIME? 

AVERAGE FAILURE RATE? 



1000 



15000 
.0002 

3000 
.0001 

3000 
.00015 

1500 
.00015 



SVSTEM RELIABILITY = .135335233 
OPERATING TIME IN HOURS? © 



10 PRINT "3SYSTEM REL I ABILITY " 
20 PRINT 

30 PRINT "(TO ENB PROGRAM ENTER 0>" 
40 PRINT "OPERATING TIME IN HOURS"; 
50 INPUT T 

59 REM - TEST FOR END OF PROGRAM 

60 IF T=0 THEN 230 

70 PRINT "NUMBER OF COMPONENTS"; 
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86 INPUT N 
90 Z=0 

99 REM - ENTER DATA FOR EACH COMPONENT 

100 FOR 1=1 TO N 
105 PRINT 

110 PRINT "COMPONENT"; I 

128 PRINT "AVERAGE WEAROUT TIME"; 

130 INPUT W 

140 PRINT "AVERAGE FAILURE RATE"; 

150 INPUT F 

159 REM - INCLUDE EACH COMPONENT IN RELIABILITY 
ISO Z=Z+1/W+F 
170 NEXT I 
130 PRINT 

189 REM - CALCULATE RELIABILITY PRINT 
198 Z=EXP<-Z*T> 

200 PRINT "SVSTEM RELIABILITY =";Z 
210 PRINT 

219 REM - RESTART PROGRAM 

220 GOTO 40 
230 END 
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Average Growth Rate, Future Projections 



This program calculates the average growth rate of a company, then projects figures for future years. The 
growth rate and projections could be computed for any aspect of a company, such as sales, earnings, number of 
employees, or patronage. You must provide established figures for a past series of years. 

The dimension statement at line 30 limits the number of past figures you may enter. Any need to alter this 
limit should be done in the following manner: 

30 DIM S</V) 
where N = the number of years for which figures are known. 

Example: 

The borrowing records for Claremount County Library are tabulated in the graph below. What is its average 
growth rate? How many books can it expect to lend in its tenth and twentieth years of service? 




36 DIM S<9> 

RUN 

AVERAGE GROWTH RATE, FUTURE PROJECTIONS 

NUMBER OF VEARS FIGURES ESTABLISHED? 9 
FIGURE: VEAR 1 ? 26 

VEAR 2 ? 35 

VEAR 3 ? 42 

VEAR 4 ? 45 

VEAR 5 ? 41 

VEAR 6 ? 51 

VEAR 7 ? 60 

VEAR 8 ? 62 

VEAR 9 ? 74 
AVERAGE GROWTH RATE * 11.88 K 
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< ENTER 6 TO END PROGRAM) 
PROJECTED SALES FOR VEflR? 19 

= 81.29 
PROJECTED SALES FOR VEflR? 20 

— 249 88 
PROJECTED SALES FOR YEAR? 



10 PRINT 'TJRVERAGE GROWTH RATE,"; 
15 PRINT " FUTURE PROJECTIONS" 
20 PRINT 

11 DIM S<ll> RRRflV S T ° ™ E NUMBER ° F VEflRS F ° R WHICH FIGURES fiRE KN °WN 
40 PRINT "NUMBER OF VEARS FIGURES"; 

45 PRINT " ESTABLISHED"; 

50 INPUT N 

60 FOR 1=1 TO N 

70 IF I>1 THEN 100 

80 PRINT "FIGURE: YEAR"; I; 

90 GOTO 110 

100 PRINT " YEAR"; I; 

110 INPUT S<I> 

120 NEXT I 

129 REM - INITIALIZE VARIABLES FOR FIRST YEAR 

130 T=L0G<S<1>> 
140 V=0 

149 REM - LOOP FOR REMAINING VEARS OF HISTORY 

150 FOR 1=2 TO N 
160 L=LOG<Sa>> 
170 T=T+L 

180 V=VKI-1>*L 
190 NEXT I 

199 REM - CALCULATE AVERAGE GROWTH RATE 

200 A=6*<2*V/<N-1>-T.V(N>/<:N+1> 
210 G=EXP<A>-1 

219 REM - ROUND OFF, PRINT 

220 PRINT "AVERAGE GROWTH RATE ="; 
225 PRINT INKG*10000+.5V100;"?i" 
230 PRINT 

239 REM - CALCULATE AVERAGE ANNUAL GROWTH FACTOR 

240 S=EXP < T/N- A* C N- 1 > /2 > 

250 PRINT "<ENTER O TO END PROGRAM*" 

259 REM - INPUT YEAR NUMBER 

260 PRINT "PROJECTED SALES FOR YEAR"; 
270 INPUT VI 

279 REM - TEST FOR END OF PROGRAM 

28© IF Y1=0 THEN 32© 

289 REM - CALCULATE PROJECTED SALES FIGURE 

29© Si=S*<l+G>t<Vl-l> 

299 REM - ROUND OFF, PRINT 

300 PRINT TAB<28>;"="; 

305 PRINT INT<Sl*100+.5>/100 

309 REM - RETURN FOR MORE DATA 

310 GOTO 260 
32© END 
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Federal Withholding Taxes 



This program calculates the amount of federal income and FICA taxes withheld from one's earnings. You 
must provide employee information as to marital status, the number of exemptions claimed, the amount of taxa- 
ble pay, and year-to-date taxable pay. 

The number of pay periods per year is established at line 80. If your pay period is other than monthly, you 
must alter this statement to set N equal to the number of pay periods per year. 

There is a considerable amount of tax information which may change from year to year. The values listed in 
the data tables at lines 30 and 40 are among those that may need periodic revision. The annual values for single 
and married persons should be compared each year with those listed in Table 7 of the current IRS Circular E. 

The annual FICA rate, the FICA cutoff amount and the annual amount of withholding allowance may also 
need revision. The values established at lines 50, 60 and 70 should also be compared to those listed in the current 
IRS circular. 

Annual rates and cutoffs are used irrespective of your actual pay period frequency. The program automat- 
ically adjusts them to match your pay period. 

Examples: 

Judy earns $900.00 per month. The payroll clerk is figuring her March paycheck. Judy is single and claims 
only herself as a dependent. What amounts are withheld from her paycheck? 

Dr. Berger has earned $1,408.75 this month. So far this year he has grossed $20,188.72. He is married and 
claims four dependents. What amounts will be withheld this month for the federal government? 

FEDERAL WITHHOLDING TAXES 

MARITAL STATUS <1=SINGLE, 2=MARRIED>? 1 

WITHHOLDING TAX EXEMPTIONS? 1 

TAXABLE PAV? 900 

VTD TAXABLE PAV? 1880 

TAXABLE = * 960 

INCOME TAX = 5- 128.5 

FICA = * 55.17 

MORE DATA a=VES, 8=NQ>? 1 

MARITAL STATUS a =S INGLE, 2=MARRIED>? 2 

WITHHOLDING TAX EXEMPTIONS? 4 

TAXABLE PAV? 1488.75 

VTD TAXABLE PAV? 23750.03 

TAXABLE = $ 1408.75 

INCOME TAX = $ 152.09 

FICA = $ & 

MORE DATA <1=VES, 0=N0)? 
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10 PRINT "."FEDERAL WITHHOLDING TAXES" 

26 PRINT 

27 REM - THE FOLLOWING DATA CONTAINS THE 1979 TAX TABLES FROM IRS 
2S REM - CIRCULAR E, PERCENTAGE METHOD, TABLE 7 < ANNUAL PAYROLL) 
29 REM - FOR SINGLE PERSONS 

SO DATA 15,1 420 ,18, 3300 ,21, 680© , 26 , 1 0200 , 30 , 1 4200 , 34 , 1 7200 , 39 , 22500 

39 REM - FOR MARRIED PERSONS 

40 DATA 1 5 , 2400 , 1 8 , 6608 ,21,1 O9O0 , 24 , 1 50OO , 28 , 1 9200 , 32 , 236O0 , 37 , 28980 

49 REM - F1=FICA RATE AS DECIMAL 

50 Fl=.0613 

59 REM - F2=FICA CUTOFF AMOUNT 

66 F2=22900 

€9 REM - Wl=AMOUNT OF WITHHOLDING ALLOWANCE < ANNUAL PAYROLL) 

70 Wl=1008 

79 REM - N=NUMBER OF PAV PERIODS PER YEAR 

88 N=12 

89 REM - LOAD THE TAX TABLE ARRAYS FROM DATA TABLES 
98 DIM FK28) 

100 FOR 1=1 TO 28 

110 READ FKI) 

128 NEXT I 

130 PRINT 

139 REM - STATEMENTS 140 TO 210 REQUEST PERTINENT EMPLOYEE DATA 

148 PRINT "MARITAL STATUS <1=SINGLE, "; 

141 PRINT " 2=MARRIED>"; 

150 INPUT S 

160 PRINT "WITHHOLDING TAX EXEMPTIONS"; 

178 INPUT W 

130 PRINT "TAXABLE PAY"; 

190 INPUT P 

199 REM - Y=TOTAL TAXABLE PAY THIS YEAR, EXCLUDING CURRENT PAYCHECK 

208 PRINT "VTD TAXABLE PAV"; 

210 INPUT V 

219 REM - ANNUALIZE CURRENT TAXABLE PAY; ADJUST FOR EXEMPTIONS 

220 G=P*N-W1*W 

238 T1=0 ' 

239 REM - CALCULATE INCOME TAX 

240 FOR 1=2 TO 7 
250 X=2* I + 1 4* < S- 1 ) - 1 

260 IF GOFKX-1) THEN 33© 

270 IF G>FKX+1)THEN 300 

288 Ti=Tl + <G-Fi <X-1 ))*F1 <X-2)/100 

290 GOTO 330 

300 T1=T1 + <F1 <X+1 )-Fl <:X-1 ) >*FKX-2>/100 

310 NEXT I 

320 Tl=Tl + <G-FKX+l))*FKX)/i00 

329 REM - ROUND OFF TO NEAREST CENT 

330 Tl=INTa'Tl/N>*100+.5>/100 
340 T2=0 

349 REM - CALCULATE FICA 

350 IF Y>F2 THEN 400 
360 IF V+P>F2 THEN 390 

378 T2= I NT < < P*F 1 > * 1 00+ . 5 > / 1 OO 
380 GOTO 480 

389 REM - ROUND OFF TO NEAREST CENT 
398 T2= I NT < < < F2- Y > *F 1 ) * 1 O0+ . 5 ) / 1 OO 
400 PRINT "TAXABLE = *";P 
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410 PRINT "INCOME TAX = $";T1 

42© PRINT "FICA = *";T2 

430 PRINT 

439 REM - RESTART OR END PROGRAM? 

448 PRINT "MORE DATA <1=VES, 0=NO>"; 

450 INPUT S 

460 IF S=l THEN 13© 

470 END 
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Tax Depreciation Schedule 



This program tabulates annual depreciation amounts. You can use the sum of digits method or any declin- 
ing balance percentage method. You must know the purchase price (initial value), salvage value at the end of the 
depreciable life, and the life of the item being depreciated. If you are doing declining balance depreciation, you 
must also know the percentage method. 

Examples: 

The Miracle Corporation put a new roof on their office building for $27,000.00. They expect to replace it in 
nine years. What would the annual depreciation amounts be using the sum of digits? 

Heavenly Bank built a new home office building for $1.2 million. Run a tax depreciation schedule on the 
building using 150% declining balance method with a 30 year life. Assume a salvage value of $250,000. You will 
notice that the depreciation falls below straight line ($31,666.67) per year) at year nine. 

TAX DEPRECIATION SCHEDULE 

PURCHASE PRICE? 27008 

SALVAGE VALUE? @ 

LIFE IN VEARS? 9 

ENTER 1 FOR SUM OF DIGITS, 

2 FOR DECLINING BALANCE? 1 

SUM OF DIGITS TAX DEPRECIATION 
PRICE $ 27808 
SALVAGE VALUE $ 8 
NET DEPRECIATED $ 27086 
LIFE 9 YEARS 

YEAR DEPRECIATION BALANCE 

1 5488 21600 

2 4800 16800 

3 4200 12600 

4 3600 9000 

5 3008 6000 

6 2400 3600 

7 1880 1800 

8 1200 600 

9 600 

MORE DATA? <1=YES, 0=N0>? 1 

PURCHASE PRICE? 1200880 
SALVAGE VALUE? 256008 
LIFE IN VEARS? 36 
ENTER 1 FOR SUM OF DIGITS, 
2 FOR DECLINING BALANCE? 2 
METHOD IN :■■'.? 150 
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DECLINING BALANCE TAX 
DEPRECIATION 

PRICE $ 1200900 
SALVAGE VALUE $ 250000 
NET DEPRECIATED $ 950000 
LIFE 30 YEARS 
METHOD 150 K 



VEAR 


DEPRECIATION- 


\ BALANCE 


1 


47500 


902500 


<-j 


45125 


357375 


3 


tiO&Oi I -J 


814506.25 


4 


40725.31 


773780.94 


5 


38689.05 


735091.89 


6 


36754.59 


693337.3 


( 


34916.86 


663420. 44 


o 


33171.02 


630249. 42 


9 


31512.47 


598736.95 


10 


29936.85 


568300. 1 


11 


28440 


540360. 1 


1 O 


2701*3 


513342.1 


13 


25667. 1 


487675 


14 


24383.75 


463291.25 


15 


23164.56 


440126.69 


16 


22006.33 


418120.36 


* 7 
J. i 


20906.02 


397214.34 


18 


19860.72 


377353.62 


19 


* OOC~? CO 
1 OOO i . Dv." 


353485. 94 


20 


17924.3 


340561.64 




17028.08 




22 


16176.63 


307356.88 


23 


15367.84 


291989.04 


24 


14599.45 


277389.59 


25 


13869.48 


263520. 1 1 


26 


13176.01 


250344. 1 


27 


1 •->«=; 1 -? *t 

1 C •—' J. 1 . fc— 


237826. 9 




11891.34 


225935.56 


29 


11296.78 


214638.78 


30 


10731.94 


203906.84 



MORE DATA? a=VES,0=NO>? 



10 PRINT "HIRX DEPRECIATION SCHEDULE" 
20 PRINT 

29 REM - ENTER INITIAL VALUE AND ROUND OFF TO NEAREST CENT 

30 PRINT "PURCHASE PRICE"; 
40 INPUT V 

50 V= I NT ( V* 1 00+ . 5 > / 1 00 

59 REM - ENTER END VALUE AND ROUND OFF TO NEAREST CENT 

60 PRINT "SALVAGE VALUE"; 
70 INPUT S 

80 S=INT(S*100+.5>/100 

89 REM - COMPUTE AMOUNT TO DEPRECIATE 

90 B=V-S 

99 REM - ENTER LENGTH OF 'DEPRECIATION 
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100 PRINT "LIFE IN VERRS"; 

110 INPUT V 

119 REM - CHOOSE DEPRECIATION METHOD 

126 PRINT "ENTER 1 FOR SUM OF DIGITS," 

125 PRINT "2 FOR DECLINING BALANCE"; 

138 INPUT X 

140 IF X=2 THEN 45© 

150 IF XOl THEN 120 

158 REM - BV SUM OF DIGITS METHOD 

159 REM - Rl IS THE CUMULATIVE AMOUNT DEPRECIATED 
ISO R1=0 

170 N=l 

260 PRINT TAB<4>.;'M SUM OF DIGITS TAX "; 

265 PRINT "DEPRECIATION" 

270 PRINT TAB < 14); "PRICE * H ;V 

280 PRINT TAB<7>; "SALVAGE VALUE *";S 

290 PRINT TAB <5); "NET DEPRECIATED $"; 

291 PRINT V-S 

300 PR I NT TAB < 1 3 > ; " L I FE " ; V ; " VE ARS " 
310 PRINT 

320 PRINT "VEAR DEPRECIATION"; 

321 PRINT " BALANCE" 

322 N=ll 

325 FOR 1=1 TO V 

326 REM - CHECK FOR FULL SCREEN <23 LINES) 

327 IF N/23= INK N/23) THEN GOSUB 80S 

329 REM - COMPUTE DEPRECIATION AND ROUND OFF TO NEAREST CENT 

330 R=2*D* < V- I + 1 > / < < v+ 1 ) * V ) 
340 R= I NT < R* 1 00+ . 5 > / 1 00 

349 REM - ACCUMULATE DEPRECIATION 

350 R1=R1+R 

359 REM - COMPUTE BALANCE TO DEPRECIATE 

360 E=B-R1 

369 REM - TEST FOR COMPLETE DEPRECIATION 

370 IF B>=0 THEN 410 
380 R1=R1+R 

400 B=0 

410 PRINT I;" ";R,B 

420 N=H+1 

430 NEXT I 

440 GOTO 700 

448 REM - BV DECLINING BALANCE METHOD 

449 REM - ENTER DECLINING BALANCE PERCENT 

450 PRINT "METHOD IN '/." i 
460 INPUT M 

469 REM - CONVERT PERCENT TO DECIMAL 

470 M=M/1O0 

479 REM - N COUNTS THE LINES PRINTED ON EACH PAGE 

489 REM - R IS THE AMOUNT TO DEPRECIATE 

490 R=D 

500 PRINT "IT; 

570 PRINT TAB <8); "DECLINING BALANCE "; 

ej7j PRINT "TA's 1 " 

575 PR I NT TAB V 1 2 ) ; " DEPREC I AT I ON " 
580 PRINT TAB(14);"PRICE *";V 
590 PRINT TAB (7);" SALVAGE VALUE *";S 
600 PRINT TAB<5);"NET DEPRECIATED *"; 
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661 PRINT V-S 

616 PRINT TABa3>.;"LIFE";Y; "YEARS" 
620 PRINT TAB <1 3 >.: "METHOD ";M*100; '"/." 
630 PRINT 

640 PRINT "VEflR DEPRECIATION"; 

641 PRINT " BALANCE" 

642 PRINT 

643 N=ll 

645 FOR 1=1 TO V 

ft49 REM _ COMPUTE DEPRECIATION AND ROUND OFF TO THE NEAREST CENT 

650 Rl = INTaR*M/Y>#100+.5>/100 

659 REM - ACCUMULATE REMAINING BALANCE 

GGd R=R-R1 

670 PRINT I;" ";R1,R 

675 N=N+1 

677 REM - CHECK FOR FULL SCREEN <23 LINES) 

630 IF N/23- I NT < N/23 > THEN GOSUB SO© 

690 NEXT I 

700 PRINT 

70S REM - RESTART OR END PROGRAM? 

710 PRINT "MORE DATA? a=YES, 0=NO>"; 

720 INPUT X 

730 IF K=i THEN 20 

740 END 
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Check Writer 



This program prints a check. You must provide the date, amount and payee of the check. The program 
translates the date and amount to words and prints providing spacing within the check. 

You should regard the program listed below as a sample of a check-writing program. Very few checks will 
conform exactly to the spacing provided in this program. The method of translating words from numbers is 
generally applicable. Spacing should be altered to conform to your own check format. 

File commands to open and close the flow of data to the printer are located at statement numbers 250 and 625 
respectively. The PRINT statements between 250 and 625 do not need to be replaced with PRINT# when using the 
CMD command at 250. 

When the program asks the question READY TO PRINT CHECK? it is prompting you to insert a 
blank check in your printing device. The check should be set one line above the line on which the date is to be 
printed. 

Once the check is set up, key RETURN (no other entry is required) and the check will be printed. 

Example: 

Among the checks that Miracle Corporation must write are one to Osborne & Associates for $4975.89 and 
one to Freida Alexander for $103.75. Print the checks using the computer. 

CHECK WRITER 

DATE <MMDDW>? 36788 

<T0 END PROGRAM ENTER 'END') 

FIRST NAME OF PAVEE? OSBORNE/ 



LAST NAME OF PAVEE? MCGRAW-HILL 
AMOUNT OF CHECK? 4975.89 
READV TO PRINT CHECK? 



HEAVENLY BANK 

EMERYVILLE OFFICE 
4120 ASHBY AVENUE 
EMERYVILLE, CA 94601 



pay to the order of QSBQRNE/MCGRAW-H I LL 



NO. 328 



MARCH 7 19 88 



* 

AMOUNT $ 4975.89 



FOUR THOUSAND NINE HUNDRED SEVENTY-FIVE DOLLARS AND 89 CENTS 



MIRACLE CORPORATION 

1111 COUNTRY ROAD 
COUNTRYVILLE, CA 94132 



1328252158 
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FIRST NAME OF PflVEE? FREIDA 
LAST NAME OF PfiVEE? ALEXANDER 
AMOUNT OF CHECK? 103.75 
READV TO PRINT CHECK? 



HEAVENLY BANK 



NO. 382 



EMERYVILLE OFFICE 

4120 ASHBY AVENUE P1HKL-H i 19 WW 

EMERYVILLE, CA 94601 ^\^$\\M 

AMOUNT $ 103.75 

PAY TO THE ORDER OF FREIDA ALEXANDER 

ONE HUNDRED THREE DOLLARS AND 75 CENTS 



MIRACLE CORPORATION 

1111 COUNTRY ROAD 
COUNTRYVILLE. CA 94132 



1328252158 



FIRST NAME OF PAYEE? END 



18 PRINT "XHECK WRITER" 

->0 DD T J^J-f 

30 DATA " ONE " , " TWO " , " THREE " , " FOUR " 

31 DATA "FIVE", "SIX", "SEVEN", "EIGHT" 

40 DATA "NINE", "TEN", "ELEVEN", " TWELVE" 

41 DATA "THIRTEEN", "FOURTEEN" 

42 DATA "FIFTEEN", "SIXTEEN" 

50 DATA "SEVENTEEN ".."EIGHTEEN" 

51 DATA "NINETEEN", "TWENTV", "THIRTV" 

60 DATA " FORT V " , " F I FT V " , " S I XT V " 

6 1 DATA " SEVENTY " , " E I GHT V " , " N I NET V " 

70 DATA " JANUARY " , " FEBRUARY " , " MARCH " 

7 1 DATA " APR I L " , " MAY " , " JUNE " , " JULY " 

80 DATA " AUGUST " , " SEPTEMBER " , " OCTOBER " 

81 DATA "NOVEMBER", "DECEMBER" 

89 REM - ENTER DATE WITHOUT COMMAS; DAY AND YEAR MUST CONTAIN TWO DIGITS 

90 PRINT "DATE <MMDDYV>"; 
100 INPUT D 

110 PRINT " <T0 END PROGRAM "; 

111 PRINT "ENTER 'END'> " 

120 PRINT "FIRST NAME OF PAYEE"; 
130 INPUT F*: PRINT 

139 REM - END PROGRAM? 

140 IF F$="END" THEN 790 

150 PRINT "LAST NAME OF PAYEE"; 

160 INPUT L*: PRINT 

170 PRINT "AMOUNT OF CHECK"; 
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180 INPUT fl: PRINT 

189 REM - INSERT BLANK CHECK IN PRINTING DEVICE, KEY <RETURN> WHEN READY 

19© PRINT "READY TO PRINT CHECK?"; 

200 GET Z$- IF Z$="" GOTO 20© 

201 PRINT 

202 PRINT 

203 PRINT 

204 PRINT 

209 REM - BREAK ENTERED DATE NUMBER INTO MONTH, DAY, YEAR FIGURES 

210 D1=INT<D/10000> 

220 D2=INT< <D-D1*10000.V100> 
230 D3 = INKD-<D1*100+D2>*100> 
235 D3=D3+1900 

239 REM - GOTO CORRECT MONTH IN DATA TABLE 

240 RESTORE 

241 FOR K= 1 TO 27+D1 

242 READ X* 

243 NEXT K 

250 0PEN4,4-CMD4 

259 REM - PRINT DATE 

260 PRINT TAB<20> ; X$; D2; " , " ; D3 

269 REM - PRINT AMOUNT TWICE; FIRST TIME FOR SHADED BOX 

270 PRINT TAB<24>;"*";A 
280 PRINT TAB<25>;A 
290 PRINT 

300 PRINT F*;" ";L$ 
310 PRINT 

319 REM - AMOUNT OF CHECK LEGITIMATE? 

320 IF A<=0 THEN 77© 
330 A1=A 

339 REM - AMOUNT IN THE THOUSANDS? 

340 N1=INT<:A1/1E3) 

349 REM - CAN'T PRINT FOR AMOUNT OVER $99999.99 

350 IF Nl>99 THEN 770 
360 IF N1=0 THEN 390 
370 GOSUB 640 

380 PRINT "THOUSAND "; 

39© A1=A1-N1*1E3 

399 REM - AMOUNT IN THE HUNDREDS? 

480 N1=INT<A1/100> 

410 IF N1=0 THEN 44© 

420 GOSUB 640 

430 PRINT "HUNDRED "; 

440 A1=A1-N1*100 

449 REM - AMOUNT IN THE ONES OR TENS? 

450 Nl=INT<An 

460 IF N1>0 THEN 49© 

470 IF A>=1 THEN 500 

430 GOTO 510 

490 GOSUB 640 

500 PRINT "DOLLARS "; 

510 A1=A1-N1 

519 REM - ANY CENTS? 

520 IF AK.Ol THEN 60© 

529 REM - IF AMOUNT IS CENTS ONLY; DON'T PRINT -AND' 

530 IF A<1 THEN 55© 
540 PRINT "AND"; 
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550 A1=INT<A1*100>+. 5/106 

559 REM - CENTS ARE PRINTED IN NUMERIC FORM 

560 PRINT INT<fil);"CENTS" 
569 REM - SPACE OFF OF CHECK 
57© PRINT 

580 PRINT 
590 PRINT 
600 PRINT 
610 PRINT 
620 PRINT 
625 PRINT#4=CL0SE4 

629 REM - RESTART PROGRAM 

630 GOTO 120 

639 REM - SUBROUTINE TO GET WORDS FOR NUMBERS 

640 IF NK21 THEN 730 

650 RESTORE 

651 FOR K=l TO <Nl-20>/10+20 

652 READ X$ 

653 NEXT K 
670 PRINT X$; 

680 A3=N1-INT<N1/10>*10 
690 IF A3=0 THEN 76Q 
700 PRINT "-"; 

710 RESTORE 

711 FOR K=l TO A3 

712 READ X$ 

713 NEXT K 
720 GOTO 750 

730 RESTORE 

731 FOR K=l TO Nl 

732 READ X* 

733 NEXT K 

750 PRINT x$;" "; 

759 REM - END OF SUBROUTINE 

760 RETURN 

??e PRINT, "***#*VOID*****" 
780 GOTO 570 
790 END 
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Recipe Cost 



This program calculates the cost and the cost per serving of a single recipe. For each ingredient you must 
provide the purchase price, the amount purchased, the amount used in the recipe, and the number of recipe units 
per purchase unit. 

Example: 

Listed below is a recipe for strawberry shortcake. Calculate the cost of the recipe and the cost per serving. 
What would the cost per serving be if one cake serves 12? The conversion factors and price per ingredient are 
supplied. 

Strawberry Shortcake — 8 servings 

3 c. flour 2.5 c./lb. $1.59 5 lb. 

3V4tsp. baking powder 15 tsp./oz. .43 4 oz. 

Vi c. sugar 2 c./lb. 1.24 5 lb. 

1 V* tsp. salt 6 tsp./oz. .29 1 lb. 

'Ac. butter 2 c./lb. 1.49 1 lb. 

1 egg 12/doz. .75 1 doz. 

Vs c. milk 4 c./qt. .40 1 qt. 

3 pts strawberries .49 1 pt. 

V2 pt. whipping cream .59 V2 pt. 

RECIPE COST 

NUMBER OF INGREDIENTS? 9 
INGREDIENT 1 : 

STORE COST FOR BULK UNIT? 1.59 
NUMBER OF UNITS IN BULK? 5 
RECIPE UNITS PER BULK UNIT? 2.5 
NUMBER OF RECIPE UNITS NEEDED? 3 

INGREDIENT 2 : 

STORE COST FOR BULK UNIT? .43 
NUMBER OF UNITS IN BULK? 4 
RECIPE UNITS PER BULK UNIT? 15 
NUMBER OF RECIPE UNITS NEEDED? 3.25 

INGREDIENT 3 : 

STORE COST FOR BULK UNIT? 1.24 
NUMBER OF UNITS IN BULK? 5 
RECIPE UNITS PER BULK UNIT? 2 
NUMBER OF RECIPE UNITS NEEDED? .25 

INGREDIENT 4 : 

STORE COST FOR BULK UNIT? .29 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 96 
NUMBER OF RECIPE UNITS NEEDED? 1.25 
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INGREDIENT 5 : 

STORE COST FOR BULK UNIT? 1.49 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 26 
NUMBER OF RECIPE UNITS NEEDED? 

INGREDIENT 6 = 

STORE COST FOR BULK UNIT? .75 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 12 
NUMBER OF RECIPE UNITS NEEDED? 

INGREDIENT 7 : 

STORE COST FOR BULK UNIT? .40 

NUMBER OF UNITS IN BULK? 1 

RECIPE UNITS PER BULK UNIT? 4 

NUMBER OF RECIPE UNITS NEEDED? .666666^ 

INGREDIENT 8 = 

STORE COST FOR BULK UNIT? .49 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 1 
NUMBER OF RECIPE UNITS NEEDED? 3 



'■? 
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INGREDIENT 9 = 

STORE COST FOR BULK UNIT? .59 
NUMBER OF UNITS IN BULK? 1 
RECIPE UNITS PER BULK UNIT? 1 
NUMBER OF RECIPE UNITS NEEDED? 1 

NUMBER OF SERVINGS? 8 

TfiTRL COST FOR ONE RECIPE = * 3 
COST PER SERVING = * .38 

MORE OR FEWER SERVINGS a=YES, 0=NO>? 1 
NUMBER OF SERVINGS? 12 

TOTAL COST FOR ONE RECIPE = * 3 
COST PER SERVING = * .25 

MORE OR FEWER SERVINGS <1=VES, 0=NO>? 



10 PRINT "PRECIPE COST" 

15 PRINT 

19 REM _ STflTMENTS 38 TO 180 REQUEST USER INPUT 

28 PRINT "NUMBER OF INGREDIENTS"; 

30 INPUT N 

39 REM - LOOP TO REQUEST DFITfl FOR EACH INGREDIENT 

40 FOR 1=1 TO N 
50 PRINT 

60 PRINT "INGREDIENT" ; I ; " = " 

76 PRINT "STORE COST FOR BULK UNIT"; 

80 INPUT C 

90 PRINT "NUMBER OF UNITS IN BULK"; 

100 INPUT U 
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110 PRINT "RECIPE UNITS PER "; 

111 PRINT "BULK UNIT"; 
126 INPUT F 

130 PRINT "NUMBER OF RECIPE ": 

131 PRINT "UNITS NEEDED"; 
140 INPUT R 

149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED 

150 P=P+C,WF*R 
160 NEXT I 

165 PRINT 

17© PRINT "NUMBER OF SERVINGS"; 

ISO INPUT S 

190 PRINT 

199 REM - ROUND OFF COSTS TO NEAREST CENT, PRINT RESULTS 

200 PRINT "TOTAL COST FOR ": 

201 PRINT "ONE RECIPE = *"; 
205 PRINT INKP#i00+.5.Vi00 

210 PRINT "COST PER SERVING = $"; 
215 PRINT INKP/S*100+.5>/100 
220 PRINT 

229 REM - CALCULATE ALTERNATIVE PRICE PER SERVING 
23© PRINT "MORE OR FEWER SERVINGS '*; 
231 PRINT "C1=VES, 0=NO>"; 
240 INPUT N 
250 IF N=l THEN 170 
:60 END 
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OPTION 



As you become familiar with the operation of this program you may wish to shorten it by entering the infor- 
mation required for each ingredient on one line. The program changes necessary are listed following the example 

Example: 

Calculate the cost per serving of Strawberry Shortcake in the previous example when it is served without 
cream. 

RECIPE COST 

NUMBER OF INGREDIENTS? 8 
INGREDIENT 1 ? 1.59,5,2.5,3 
INGREDIENT 2 ? .43,4,15,3.25 
INGREDIENT 3 ? 1.24, 5, 2,. 25 
INGREDIENT 4 ? .29,1,96,1.25 
INGREDIENT 5 ? 1.49, 1,2.. 5 
INGREDIENT 6 ? .75,1,12.1 
INGREDIENT 7 ? .40, 1,4, .6666667 
INGREDIENT 8 ? .49,1,1,3 

NUMBER OF SERVINGS? S 

TOTAL COST FOR ONE RECIPE = $ 2.41 
COST PER SERVING = $ .3 

MORE OR FEWER SERVINGS <1=VES, 0=NO>? 1 
NUMBER OF SERVINGS? 12 
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TOTAL COST FOR ONE RECIPE = $ 2.41 
COST PER SERVING = * .2 

MORE OR FEWER SERVINGS <1=VES, 0=NO>? 8 



1 REM - OPTION 55-79 
18 PRINT "ZJRECIPE COST" 



48 FOR 1=1 T8 N 
58 PRINT 

55 REM - ENTER C,U,F,R 

56 REM - WHERE C=COST FOR BULK UNIT 

F>7 REM - U=NUMBER UNITS IN BULK UNIT 

58 REM - F=RECIPE UNITS PER BULK UNIT 

=!9 p E |v, _ R=NUMBER RECIPE UNITS CALLED FOR 

68 PRINT "INGREDIENT"; I ; 

78 INPUT C,U,F,R 

149 REM - SUM COST OF EACH INGREDIENT PER AMOUNT USED 



268 END 
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Survey Check (Map Check) 



Courtesy: Robert Irving 
Northridge, 
California 



This program calculates the error of closure and area of a plot for which a traverse of the perimeter is 
available. The program will also calculate how far North and East the end of an open traverse is from its 
origin (the Northing and Easting). The local coordinates of the origin can be entered for an open traverse 
Negative values of Northing and Easting are South and West respectively, of the 0.0 origin of the survey.' 

The individual legs of the traverse may be either straight lines or arcs of circles. To compute the tra- 
verse you must have the bearing and length of each straight leg. You also need the radius, bearing of 
chord, and length of chord (or radius, arc measure, and bearing of a tangent) for each curved leg. 

For a closed survey, pick any intersection of legs as a starting point, and number the lines and arcs 
starting with one, in aclockwise direction around the perimeter. If any arc is 180 degrees or more it must be 
broken into smaller arcs, each less than 180 degrees. 

By convention, surveyors measure bearings East and West of North and South, as shown in the 
following figure. This convention was established in the days before computers, so that trigonometric 
functions could be easily looked up in tables not exceeding 90 degrees. For each leg, you must enter the 
quadrant number and the degrees, minutes and seconds East or West of the North-South axis The pro- 
gram will indicate the direction of the leg (e.g.. SW), and will convert the quadrant, degrees, etc to an 
azimuth angle. Azimuth is measured clockwise from North to 360 degrees. 

N 
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^*. 



) 



^* 



J Quadrant numbering scheme. Note angles 

S are measured from the North-South line. 

A curved leg. or arc. is defined by two auxiliary legs, each of which is a radius of the arc. The bearinq 
of the first auxiliary leg is the direction of the radius from the first encountered end of the arc to the center 
of the arc. You can compute this bearing from the bearing of the arc's tangent at that point, since the 
radius is perpendicular to the tangent. The survey may show the bearing of the tangent. If not. you can 
compute it by adding one half the angular extent of the arc to the bearing of the arc's chord, as shown in 
tne next tigure. 
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Tangent 



Bearing of Tangent = Bearing of Chord 




Radius 



Tangent 



The bearing of the second radius is from the center of the arc to the other end, and the distance is en- 
tered as a negative number to signal to the computer that this and the prior leg are not perimeter legs, but 
auxiliary legs of an arc. 

The program asks you for the bearing and distance of each leg by number Legs are entered in sets of 
ten (or less). Following the last entry in a set. you can correct any leg in the set You must enter both auxili- 
ary legs of an arc in the same set. You can enter a bearing of zero to end one set. and then enter more legs 
on the next set 

When you have corrected a set a traverse table is printed for the set This includes each leg number, 
direction, azimuth angle and distance, and incremental and cumulative Northing and Easting. The cumula- 
tive Northing and Easting after the last leg on a closed survey gives the error of closure. Arc angle, radius, 
sector area, chord length, and tangent length are printed between the two auxiliary legs of each curved 
leg. 

Following the printout of the last leg of a closed survey, the area of the plot will be printed, both in 
square feet and in acres. The area computed is very accurate provided two conditions are met: 

1) the error of closure is small (0.01 feet is usual for a house lot), and 

2) the area is sufficiently small that curvature of the earth does not become significant Surveys covering 
several tens of miles have to account for this latter factor. 

Example: 

The figure below illustrates the boundaries of a lot with one curved side. The leg numbers are circled. 
Bearings and distances are shown for each leg. Find the error of closure and lot area. 

® ® S39°0"E 

149.83 
(D S39°0"E 
50.00 

(5) N85°23'53"W 
50.00 

© N85°23'53"W 
114.32 

(D N1°5'0"E 
132.78 

(6) N46°0'0"E 
14.00 

S89°0'0"E 
25.46 
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MAP CHECK 

OPEN (1) OR CLOSED (0) SURVEV? 

NEXT SET OF LEGS: 

LEG NO. 1 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 2,39,8,0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 149.83 

LEG NO. 2 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 2,39,0,0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 58 

LEG NO. 3 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 4,85,23,53 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS^ -50 

LEG NO. 4 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 4,85,23,53 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 114.32 

LEG NO. 5 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 1,1,5,0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 132.78 

LEG NO. 6 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 1,46,0,0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 14 

LEG NO. 7 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 2,89,0,0 

DISTANCE 

(NEGATIVE IF OUTWARD RADIUS)? 25.46 

LEG NO. 8 

QUADRANT, DEGREES, MINUTES, SECONDS 

? 0,0,0,0 

CORRECT WHICH LEG IN THIS SET'' 
(0=NO MORE CHANGES)? 
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ORIGIN 0/0 

LEG/DIR. 1 /SE 
AZIMUTH/HIST. 141 / 149.83 
DEL N/DEL E -116.44 / 94.291 
HORTHIHG/EASTING -116.44 / 94.291 

LEG/DIR. 2 /SE 
AZIMUTH/DIST. 141 © / 50 
DEL N/DEL E -38.357 / 31.466 
NORTHING/EASTING -155.297 / 125.757 

ARC: 46 23 53 

R= 50 fl= 2024.497 C= 39.393 T= 21.429 

LEG/DIR. 3 /NW 
AZIMUTH/DIST. 274 36 7 / 50 
DEL H/DEL E 4.812 Z-49.839 
HORTHING/EflSTING -151.285 / 75.913 

** PRESS 'C FOR NEXT SET OF LEGS ** 

RE ADV. 

1 -17701:1770 

LEG/DIR. 4 /NW 

AZIMUTH/DIST. 274 36 7 / 114.32 
DEL N/DEL E 9 . 1 72 /- 113.951 
NORTH I NG/EflST I NG -142.113 /-38 . 033 

LEG/DIR. 5 /NE 
flZIMUTH/DIST. 1 5 / 132.78 
DEL N/DEL E 132.756 / 2.51 
HORTHING/EflSTING -9.357 Z-35.523 

LEG/DIR. 6 /NE 

flZIMUTH/DIST. 46 / 14 

DEL N/DEL E 9.725 / 10.071 

HORTHING/EflSTING .363 Z-25.452 

** PRESS 'C FOR NEXT SET OF LEGS *# 

REflDV. 

LEG/DIR. 7 /SE 

flZIMUTH/DIST. 91 / 25.46 

DEL N/DEL E -.444 / 25.456 

HORTHING/EflSTING -.076 / 4E-03 

flNV MORE LEGS (1=VES, 0=NO>? 
PLOT AREA IS 13347.683 SQ. FT. 

PLOT AREA IS .38642064 ACRES 

BREAK IN 100© 
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10 REM - SURVEV CHECK 

}f pIm " £2o C kPS D SURVEV F0LL0W TRAVERSE CLOCKWISE 

13 REM - KEEP PLOT TO RIGHT OF EACH PERIMETER LEG 

14 REM - COMPUTE RUXILIfiRV LEGS AS RADII AT EACH 

15 REM - END OF ARC. ARC<188 DEGREES 

16 REM 

17 REM - VALUE OF PI; PI=3. 14153265 
13 REM - K8 = NUMBER OF LEGS PER SET 
28 K0=10 

30 DIM B<10>,L<10> 

S 5P 1 " FNR<> ° R0UN1)S X T0 3 DECIMAL PLACES 
40 DEF FNR<X>=INT<X*1888+.5V1888 

it 5!? ^5oiL™| CONVERSION FACTOR FOR DEGREES TO RADIANS 

60 PRINT "SIAP CHECK" -PRINT 

70 PRINT "OPEN Cl> OR CLOSED <8> SURVEV"; 

80 INPUT F 

30 IF F=0 THEN 120 

100 PRINT "ORIGIN: NORTHING, EASTING"; 

11© INPUT N,E 

120 PRINT -PRINT "NEXT SET OF LEGS:":PRINT 

125 G=H 

130 FOR K=l TO K0 

140 GOSUB 2000 T BERRING flND STANCE FOR NEXT LEG 

143 REM - IF BEARING IS 8, END INPUT FOR THIS SET 

150 IF 0=8 THEN 170 

155 G=G+1 

160 GOTO 240 

163 REM - ZERO UNUSED LEGS IN THIS SET 

178 IF K=K8 THEN 238 

ISO FOR J=K+1 TO KO 

130 B<J)=0 

20© L<J>=0 

210 NEXT J 

230 K=K0 

240 NEXT K 

260 PRINT "CORRECT WHICH LEG IN THIS SET" 

?§i ? R it1I I <0=NO M0RE CHANGES)"; 

^70 INPUT K 

273 REM - NO CHANGES IF INPUT 

280 IF K=0 THEN 310 

285 K=K-H 

230 GOSUB 2800 

380 GOTO 268 

2?2 R ! M " COMPUTE VALUES AND PRINT TRAVERSE TABLE 

318 PRINT "30RIGIN ";FNR<N>; V";FNR(E> 

348 PRINT 

358 FOR K=l TO K8 

368 L1=L<K> 

361 Z=Z+1 

363 REM - CHECK FOR ARC 

370 IF LK0 THEN 1188 

388 IF Ll*8 THEN 388 

ft! « : S£f SmKSSS 8 TING INCREMENT <C0NVERT BEfiRIN0S FR0M 

338 L=L<K>*COS<B<K>*R> 
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408 D=L0O*SIN<B<IO*R> 
41© N=N+L 
420 E=E+D 

429 REM - INCREMENT AREA 

430 A=A-E*L+N*D 

440 PRINT ,, LEG/DIR.";TflB<17>;H+K;V"; 

449 REM - FROM BEARING, DETERMINE DIRECTION 

450 IF B<K)=0 THEN 470 
460 GOTO 490 

470 PRINT "N" 

480 GOTO 330 

490 IF B<KX90 THEN 510 

500 GOTO 530 

510 PRINT "NE" 

520 GOTO 830 

538 IF B<K>=90 THEN 550 

540 GOTO 570 

550 PRINT "E" 

560 GOTO 830 

570 IF B<KX180 THEN 590 

580 GOTO 610 

590 PRINT M SE" 

600 GOTO 830 

610 IF B<K>=180 THEN 630 

620 GOTO 650 

630 PRINT "S" 

64© GOTO 330 

650 IF B<KX270 THEN 670 

660 GOTO 690 

670 PRINT "SW" 

680 GOTO 830 

690 IF B<K>=270 THEN 710 

700 GOTO 730 

710 PRINT "W" 

720 GOTO 830 

738 IF B<KX360 THEN 75© 

740 GOTO 770 

750 PRINT "NW" 

760 GOTO 830 

770 IF B<K)=360 THEN 790 

780 GOTO 310 

790 PRINT "N" 

800 GOTO 830 

810 B<K)=BCK>-360 

320 GOTO 450 

829 REM - BREAK BEARING INTO DEGREES, MINUTES, SECONDS 

830 D1=INT<B<K>> 
840 Ml=<B<fO-Dl>*60 
858 M=INTCM1> 

868 S=INT<<Ml-M>*60+.5> 

870 PRINT "AZIMUTH/DIST. ";D1;M;S; V";FNR<L<IO> 

380 PRINT "DEL N/DEL E ";FNR(L>; V";FNR<D) 

331 PRINT "NORTHING/EASTING ";FNR<N>; V";FNR<E> 
385 PRINT 

890 L<K>=L1 

891 IF 2<3 THEN 98© 

895 PRINT "** PRESS 'C FOR NEXT SET "; "OF LEGS **" 
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896 GET Wf.-IF W$="" THEN 896 

897 PRINT 

898 Z=S 
90© NEXT K 

1 fit MsrF 1 ' 

SS f?i!1I , M , flNV ri0RE LEGS a=VES - 0=NO >"- : 

^•io INPUT U 

940 IF UO0 THEN THEN 12© 

949 REM - NO AREA FOR OPEN SURVEV 

950 IF FOB THEN 1000 
960 A=ABS<A/2> 

970 PRINT "PLOT AREA IS";FNR<A>; "SO. FT." 
980 PRINT 

990PRINT "PLOT AREA IS"; INT( A/43560* !E8+.5>/lE8; "ACRES" 
HI S&(^?^?i?f VED LE ° RND PRINT ° N ™NSVERSE TABLE 

1110 e=ABsa80-c> 

1120 B=-L1 

1130 L<fQ=B 

114© A 1 =C/ 1 80*ir *D*D 

1150 C1=2*D*SIN<X/2*R> 

1 1 60 T=D*TAN < C/2*R > 

1170 B9=B<K>-B<K-1> 

1180 IF B9<-130 THEN 1219 

1190 IF B9>180 THEN 1210 

1200 IF B9>0 THEN 123© 

1210 A=A+A1 

1220 GOTO 1240 

1230 A=A-A1 

1240 D1=INKC> 

1250 M1 = <X-D1>#60 

1260 M=INKM1> 

1270 S=INK<Ml-M>*60+.5> 

1230 PRINT " ARC : M B1 ; M; S : PRINT" R=" ; FNR<D> : "A=" : FNR<r Al > • "r-» • 

1290 PRINT FNR<C1>;"T=";FNR(T> •'""*"■•• « ^NR<FU>, C- , 

1300 PRINT 

1320 GOTO390 

1999 REM - INPUT DATA FOR ONE LEG 
200© B<K>=© 
2010 LCK>=0 

2020 PRINT "LEG NO. ";H+K;" 

2021 PRINT "QUADRANT, DEGREES, "; 

2022 PRINT "MINUTES, SECONDS": 
2030 INPUT Q,D,M,S 

2040 IF Q=0 THEN 2270 
2050 IF Q>4 THEN 2020 
2060 IF Q<0 THEN 2020 
2870 IF D<0 THEN 2020 
2080 IF M<0 THEN 2020 
2090 IF S<0 THEN 2020 
2100 B<K>=D+<M+S/60>/fi0 
2110 IF B<K»90 THEN 2020 
2120 IF Q=l THEN 2220 
2130 IF. Q=2 THEN 2158 
2140 GOTO 2170 
2150 B<K>=130-B<K> 
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2160 GOTO 2220 

2170 IF Q=3 THEN 2190 

2180 GOTO 2210 

2190 B(K>=180+B<K> 

2200 GOTO 2220 

2210 IF 0O4 THEN 2220 

2215 B<K>=360-B<K> 

2220 PRINT "DISTANCE " 

2221 PRINT "(NEGATIVE IF OUTWARD RADIUS)"; 
2230 INPUT LXK>: PRINT 

2240 IF L<K»0 THEN 2270 

2250 IF abs<l<:k>>oabs<l<:k-i>)then 2220 

2270 RETURN 
9999 END 
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Day of the Week 



This program i calculates the day of the week that a given date falls on. It will figure, for example, that 
December 25, 1980 will be a Thursday. 

You must enter the date in numeric form and in the order of month, day, year. September 12 1975 will be 
entered as 9 , IS , 1975 , making certain that commas, not slashes or dashes, separate the figures. 

Examples: 

Cindy's birthdate is March 4, 1953. On what day was she bom? 

Uncle Lon has an appointment on September 30, 1977. What day is that on? 

DAY OF THE WEEK 

CENTER 0,8,0 TO END PROGRAM) 
MONTH, DAY, VEflR? 3, 4, 1953 
WEDNESDAY 

MONTH, DAY, YEAR? 9, 30, 1977 
FRIDAY 

MONTH, DAY, YEAR? 0,0,0 



10 PRINT "3DAY OF THE WEEK" 
20 PRINT 

29 REM - REQUEST USER INPUT 

30 PRINT "CENTER 0,0,0 TO END PROGRAM)" 
40 PRINT "MONTH, DAY, YEAR"; 

50 INPUT M,D,V 

59 REM - TEST FOR END OF PROGRAM 

60 IF MOO THEN 100 
70 IF DO© THEN 100 
80 IF VO0 THEN 100 
90 GOTO 360 

?|0 R IF M>2 E fS E N°i30 JUST INPUT F ° R CflLCULflTI0 "S? 

109 REM - ADJUST INPUT 

110 M=M+12 
120 Y=Y-1 

129 REM - CALCULATE DAV NUMBER 

111 ^Nf^N^IiNf ?^? J > >;V + INT< V^>-INT< V^100> + INT< V^00> +2 

150 IF M N>0 F ThIn°^0 ECT DflV NUMBER ' TRflNSLflTE T0 Dfl V, PRINT 

160 PRINT "SATURDAY" 

170 GOTO 340 

180 IF N>1 THEN 210 

198 PRINT "SUNDAY" 

200 GOTO 340 
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218 IF N>2 THEN 240 

220 PRINT "MONDAY" 

230 GOTO 340 

240 IF N>3 THEN 270 

250 PRINT " TUESDAY" 

260 GOTO 340 

270 IF N>4 THEN 300 

280 PRINT "14EDNESDAY" 

290 GOTO 340 

300 IF N>5 THEN 330 

310 PRINT "THURSDAY" 

320 GOTO 340 

33© PRINT "FRIDAY" 

34© PRINT 

349 REM - RESTART PROGRAM 

350 GOTO 40 
360 END 
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Days between Two Dates 



■ 



This program calculates the number of days between two given dates. Leap years are taken into account 
The program assumes there is one day between today and tomorrow. For instance, there are two davs between 
March 1 and March 3 of the same year. 

There are a few precautions to assure the proper use of this program. First, you must be certain to enter the 
earlier date first. Second, dates must be entered in number form (3, not MARCH ) and in the correct order 
(month, day, year, i.e., 3,17,1 976 ). Commas, not slashes or dashes, must separate the figures Third the 
year must not be abbreviated { 1976 , not 76), even if both dates are in the same century. Finally the month en- 
tered must not be greater than 12 and the days no greater than the number of days in the particular month If 
such is the case, the message UNREAL DATE is printed to alert you to the fact that an unreal date 
(such as 14 ,32 , 1 975 ) has been entered. An incorrect answer is likely to result. 

Example: 

John's birthdate is August 8, 1951. How many days old will he be on his 30th birthday? 

DAVS BETWEEN TWO DATES 

FIRST DATE? 7,4,197? 
SECOND DATE? 12,25,1977 
DIFFERENCE = 174 DAYS 

MORE DATA C1=VES, 0=NO>? 



10 PRINT ".TDAVS BETWEEN TWO DATES" 

28 PRINT 

29 REM - STATEMENTS 30 TO 60 REQUEST USER INPUT 
3@ PRINT "FIRST DATE" : 

40 INPUT M1,D1,V1 

50 PRINT "SECOND DATE"; 

60 INPUT M2,D2,V2 

f? 5 E !1~ SET VflRIfl SLES TO BE USED IN SUBROUTINE 
70 M=M1 

80 D=D1 

90 V=V1 

100 GOSUB 238 

109 REM - SAVE COMPUTED NUMBER OF DAVS IN N 

118 N^A 

119 REM - SET VARIABLES TO BE USED IN SUBROUTINE 

120 M=M2 
130 D=D2 
140 V=V2 

158 GOSUB 230 

159 REM - CALCULATE DIFFERENCE AND PRINT 
168 N=A-N 

170 PRINT "DIFFERENCE =",N; "DAVS" 

18© PRINT 

189 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED 
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198 PRINT "MORE DATA <1=VES, 0=NO>"; 

20© INPUT X 

210 IF X=l THEN 20 

219 REM - END PROGRAM 

220 GOTO 460 * 

227 REM - SUBROUTINE TO COMPUTE NUMBER OF BAYS FROM ©/©/O/ TO M/D/V 

228 REM - START WITH TEST FOR UNREAL DATE 

229 REM- GO TO CORRECT TEST DEPENDING ON NUMBER OF DAVS IN THE MONTH 

230 ON M GOTO 260,280,260,340,260,340,260,260,340,260,340,260 
240 PRINT "UNREAL DATE" 

249 REM - STOP CALCULATIONS, RETURN TO MAIN PROGRAM 

250 RETURN 

259 REM - MONTH HAS 31 DAVS 

260 IF D>31 THEN 240 
270 GOTO 350 

279 REM - MONTH IS FEBRUARY; A LEAP YEAR? 

280 IF Y/40INT<Y/4> THEN 31© 
290 IF Y/400=INT(V/400> THEN 32© 
300 IF Y/100OINT<V/100> THEN 32© 

3©9 REM - NOT A LEAP YEAR; MONTH HAS 28 DAYS 

310 IF D>28 THEN 24© 

219 REM - A LEAP YEAR; MONTH HAS 29 DAVS 

320 IF D>29 THEN 24© 

330 GOTO 350 

339 REM - MONTH HAS 30 DAYS 

340 IF D>3© THEN 24© 

349 REM - TABLE OF NUMBER OF DAYS FROM FIRST OF VEAR TO FIRST OF EACH 
MONTH 

350 DATA 0,31,59,90,120,151,181,212 

351 DATA 243,273,304,334 

360 RESTORE 

361 FOR Q=l TO M 

362 READ A 

363 NEXT Q 

369 REM - GET NUMBER OF DAYS FROM JANUARY 1 TO FIRST OF MONTH FROM DATA 
TABLE 

379 REM - COMPUTE NUMBER OF DAYS FROM ©/©/© TO M/D/Y 

380 A=A+V#365+INT<V/4>+D+l-INT<:Y/100) + INT<V/400> 

389 REM - POSSIBLY A LEAP VEAR? 

390 IF INT<Y/4K>Y/4 THEN 45© 

409 REM - CONTINUE TEST FOR LEAP VEAR 

410 IF V/4©0= INT<Y/4©0> THEN 430 
42© IF V/100=INT<V/100> THEN 44© 

428 REM - IF MONTH IS JANUARY OR FEBUARY, ADJUST CALCLATED NUMBER OF 

DAVS 
430 IF M>2 THEN 45© 
440 A=A-1 

449 REM - END OF SUBROUTINE, RETURN TO MAIN PROGRAM 

450 RETURN 
46© END 
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OPTION ~- " — 

To shorten this program you may wish to omit the test for unreal dates. It should be noted that if a month 
of more than 12 is entered when this test is omitted, an input empr will result. The program lines which may be 
deleted are listed following the example below. 

Example: 

How many days are there between July 4 and Christmas? 

DAVS BETWEEN TWO DATES 

FIRST DATE? 3,8,1951 
SECOND DATE? 8,8,1981 
DIFFERENCE = 16958 DflVS 

MORE DfiTfl <1=VES, 0=N0>? 



1 REM - OPTION 110,150 

10 PRINT '\TDflVS BETWEEN TWO DATES" 



90 V=V1 

100 GOSUB 358 

109 REM - SAVE COMPUTED NUMBER OF DflVS IN N 



140 V=V2 

150 GOSUB 350 

159 REM - CALCULATE DIFFERENCE AND PRINT 



227 REM - SUBROUTINE TO COMPUTE NUMBER OF DAVS FROM 0/0/0/ TO M/D/V 



349 M REM- TABLE OF NUMBER OF DAVS FROM FIRST OF VEAR TO FIRST OF EACH 
nONTH 



460 END 
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Anglo to Metric 



This program converts a measure given in anglo units to metric units. The conversions available in this pro- 
gram are as follows: 

1 Inches to centimeters 

2 Feet to centimeters 

3 Feet to meters 

4 Yards to meters 

5 Miles to kilometers 

6 Teaspoons to cubic centimeters 

7 Tablespoons to cubic centimeters 

8 Cups to liters 

9 Pints to liters 

10 Quarts to liters 

1 1 Gallons to liters 

12 Bushels to liters 

13 Pecks to liters 

14 Ounces to grams 

15 Pounds to kilograms 

16 Tons to kilograms 

17 Degrees Fahrenheit to degrees Celsius 

You must provide the value of the anglo measurement and the number of the conversion (1 - 17 as listed 
above) which you wish to perform. 

Example: 

Perform the following conversions: 

8.5 miles to kilometers 

75° Fahrenheit to degrees Celsius 

10 gallons to liters 

anglo to metric 

<to end program tvpe @> 

which conversion do vou need? 5 

value to be converted? 8.5 

3.5 miles = 13.6765 kilometers 

which conversion do vou need? 17 
value to be converted? 75 
75 degrees fahrenheit = 23.3888839 celsius 
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WHICH CONVERSION DO YOU NEED? 11 
VALUE TO BE CONVERTED? 10 
10 GALLONS = 37.85 LITERS 

WHICH CONVERSION DO YOU NEED? O 



10 PRINT MRNGLO TO METRIC" 

20 PRINT 

29 REM - ESTABLISH VARIABLES FOR 17 CONVERSION FACTORS 

SO DIM C<17> 

39 REM - LOOP TO ASSIGN CONVERSION FACTORS INTO CO 

40 FOR N=l TO 17 
50 READ C<N> 

60 NEXT N 

€9 REM - DATA TABLE OF SEVENTEEN CONVERSION FACTORS 

70 DATA 2.540,30.480, .3048, .9144 

71 DATA 1.609,4.929,14.783, .2366 

72 DATA .4732, .9463,3.785,35.24 

73 DATA 8 . 809 , 28 . 3495 , . 4536 , 907 . 2 
80 DATA .6214 

89 REM - GET NUMBER OF CONVERSON FROM PROGRAM DESCRIPTION 

90 PRINT "(TO END PROGRAM TYPE 0>" 

100 PRINT "WHICH CONVERSION "; 

101 PRINT "DO YOU NEED"; 
110 INPUT N 1 PRINT 

119 REM - END PROGRAM? 

120 IF N=0 THEN 540 

129 REM - CONVERSIN AVAILABLE? 
ISO IF N> 17 THEN 100 
140 PRINT "VALUE TO BE CONVERTED"; 
150 INPUT I -PRINT 

159 REM - PERFORM CONVERSION USING PROPER CONVERSION FACTOR 

160 R=I*C<N> 

169 REM - DIRECT PROGRAM TO PROPER CONVERSION UNITS, PRINT RESULTS 

173 ON N-9 GOTO 360,380,400,420,440,460,480,50© 

175 ON N GOTO 180,200,220,240,260,280,300,320.340 

180 PRINT I;" INCHES =";R; "CENTIMETERS" 

190 GOTO 520 

200 PRINT I; "FEET =";R; "CENTIMETERS" 

210 GOTO 520 

220 PRINT I; "FEET =";R; "METERS" 

240 PRINT I; "YARDS =";R; "METERS" 

250 GOTO 520 

260 PRINT I; "MILES =";R; "KILOMETERS" 

270 GOTO 520 

280 PRINT I;"TSP. =";R; 

281 PRINT "CUBIC CENTIMETERS" 
290 GOTO 520 

300 PRINT I;"TBSP. =";R; 

301 PRINT "CUBIC CENTIMETERS" 
310 GOTO 520 

320 PRINT I; "CUPS =";R; "LITERS" 
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330 GOTO 528 

346 PRINT I; "PINTS =";R; "LITERS" 

350 GOTO 520 

360 PRINT I ; "QUARTS =".:R; "LITERS" 

370 GOTO 520 

330 PRINT I; "GALLONS =".;R; "LITERS" 

390 GOTO 520 

400 PRINT I. : "BUSHELS =".:R; "LITERS" 

410 GOTO 520 

420 PRINT I. ; "PECKS =" JR.: "LITERS" 

43fl GOTO 520 

440 PRINT" I; "OUNCES =";R; "GRAMS " 

450 GOTO 520 

460 PRINT I; "POUNDS =";R; "KILOGRAMS" 

470 GOTO 520 

480 PRINT I; "TONS =";R; "KILOGRAMS" 

490 GOTO 520 

499 REM - CONVERT FROM DEGREES FARENHEIT TO CELSIUS 

500 R= <I -32) #5/9 

510 PRINT I; "DEGREES FAHRENHEIT =";R; 

511 PRINT "CELSIUS" 
520 PRINT: PRINT 

529 REM - RESTART PROGRAM 

530 GOTO 100 
540 END 
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Alphabetize 



This program alphabetizes a list of words or phrases. 

70 DIM A*(/V) 
where /V = the number of items to be alphabetized. 



Example: 

Alphabetize the following names: 

Robert Wilson 
Susan W. James 
Kent Smith 
Michael Mitchell 
Ann T. McGowan 
Alexander Lee II 
Mary Mitchell 
David Bowers 
Steven Evans 
Carol Jameson 
Linda North 



70 DIM fl*ai) 
RUN 



ALPHABETIZE 

<:to end program enter e> 

NUMBER OF ITEMS? 11 
ITEM 1 ? WILSON ROBERT 
ITEM 2 ? JflMES SUSAN W. 
ITEM 3 ? SMITH KENT 
ITEM 4 ? MITCHELL MICHAEL 
ITEM 5 ? MCGOWAN ANN T. 
ITEM 6 ? LEE ANEXANDER II 
ITEM 7 ? MITCHELL MARV 
ITEM 8 ? BOWERS DAVID 
ITEM 3 ? EVANS STEVEN 

ITEM 10 ? JAMESON CAROL 

"EM 11 ? NORTH LINDA 

BOWERS DAVID 

EVANS STEVEN 

JAMES SUSAN W. 
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JAMESON CAROL 
LEE ALEXANDER II 
MCGOWAN ANN T. 
MITCHELL MARV 
MITCHELL MICHAEL 
NORTH LINDA 
SMITH KENT 
WILSON ROBERT 

NUMBER OR ITEMS? 



18 PRINT "ALPHABETIZE" 

20 PRINT 

30 PRINT "<TO END PROGRAM ENTER 0>" 

40 PRINT "NUMBER OF ITEMS"; 

50 INPUT N 

60 IF N=0 THEN 330 

6^ REM - LIMIT ARRflV TO MAXIMUM NUMBER OF ITEMS TO BE ENTERED IN ONE RUN 

70 DIM R$<25> 

80 FOR 1=1 TO N 

90 PRINT "ITEM"; I; 

100 INPUT R*a> 

110 NEXT I 

120 M=N 

127 REM - THE SORT TECHNIQUE USED COMPARES DATA ITEMS IN DIMINISHING 

INCREMENTS 

128 REM - THE FIRST PASS COMPARES ITEMS N/2 ELEMENTS APART, THE SEUUND 

(N/2V2 

12 9 REM - ELEMENTS APART, AND SO ON UNTIL THE INCREMENT IS EXHAUSTED. 

130 T=M/2 

131 M=INT<T> 

140 IF M=0 THEN 28© 

150 K=N-M 

160 J=l 

170 I=J 

180 L=I+M 

190 IF A$aX=A$<L>THEN 250 

200 T$=R$<I) 

210 A$<I>=A$<L> 

228 A$<L>=T$ 

'-■'32' 1 = 1— M 

240 IF I>=1 THEN 180 

250 J=J+1 

268 IF J>K THEN 130 

270 GOTO 170 

280 FOR 1=1 TO N 

281 REM - CHECK FOR FULL SCREEN <2@ LINES) 

282 IF I/20OINT<I/20> THEN 290 

283 REM - WAIT FOR OPERATOR CUE TO GO TO NEXT SCREEN 

284 PRINT "ENTER 'C TO CONTINUE"; 

285 INPUT m- 
290 PRINT A$a> 
300 NEXT I 

310 PRINT 

319 REM - RESTART PROGRAM 

320 GOTO 40 
33© END 
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OPTION 

You may wish your list alphabetized in reverse, or from highest to lowest. The program changes necessary 
are listed following the example below. 

Example: 

The scores on a math test range from 82 to 1 17. Put the students in order according to their scores, from 
highest to lowest. 





89 


Bowers 




102 


Evans 




111 


James 




100 Jameson 




99 


Lee 




117 


McGowan 




102 


Mitchell 




82 


Mitchell 




97 


North 




91 


Smith 




108 Wilson 


70 


DIM fi$<ll> 


RUN 






ALPHABETIZE 




<T0 


END PROGRAM ENTER 


NUMBER OP ITEMS? 11 


ITEM 1 ? ©89 


BOWERS 


ITEM 2 ? 102 


EVANS 


ITEM 3 ? Ill 


JAMES 


ITEM 4 ? 100 


JAMESON 


ITEM 5 ? 099 


LEE 


ITEM 6 ? 117 


MCGOWAN 


ITEM 7 ? 102 


MITCHELL 


ITEM 3 ? 082 


MITCHELL 


ITEM 9 ? 097 


NORTH 


ITEM I© ? 091 SMITH 


ITEM 11 ? 103 WILSON 


117 


MCGOWAN 




111 


JAMES 




108 


WILSON 




102 


MITCHELL 




102 


EVANS 




100 


JAMESON 




099 


LEE 




097 


NORTH 




091 


SMITH 




089 


BOWERS 




032 


MITCHELL 




NUMBER OF ITEMS? © 
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1 REM - ALPHABETIZE -OPTION 196 

4 REM - LIMIT ARRAV TO MAXIMUM NUMBER OF ITEMS TO BE ENTERED IN ONE RUN 

5 BIM fl*<25> 
-? ppiNj "3" 

18 PRINT "ALPHABETIZE" 



186 L=I+M 

196 IF fl*<I)>=fl*<L) THEN 256 

200 T*=fl*<I> 



330 END 
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